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History  of  CLU 

Thf  development  of  C  l  U  began  in  January  19*74  By  the  summer  of  I97S,  the  first  version  of 
the  language  had  been  comp  fried  Ovrr  the  next  two  years,  the  entire  language  design  was 
rrvirwrd  and  two  implementations  were  produced  Based  on  this  review,  and  on  the  experience 
gamed  in  using  Cl  U.  a  second  version  of  the  language  was  designed  in  the  fall  of  1977,  and  a  new 
implementation  is  now  complete  A  preliminary  version  of  this  manual  appeared  in  July  1978 
Since  that  time,  an  additional  statement  lor  exception  handling,  an  own  variable  mechanism,  and 
three  new  haste  type  generators  have  t«een  added  to  the  language,  and  a  number  of  minor  changes 
have  been  made  to  the  I/O  facilities 

Guide  to  the  Manual 

This  document  seises  both  as  an  introduction  to  CLU  and  as  a  language  reference  manual. 
Sections  I  through  1  present  in  overview  of  the  language  These  sections  highlight  the  essential 
features  of  Ittl  and  disc  use  how  (  1 1 )  dif  lets  f  tom  other,  more  conventional,  languages  Sections 
S  throcii  h  P  form  the  reference  manual  projiei  These  sections  describe  each  aspect  of  CLU  In 
detail,  and  diuuss  the  ptnjser  use  of  vanosis  features  Appendices  I  through  III  provide  concise 
summaries  of  (Ill's  syntax  data  t>|»es  and  I/O  facilities  Appendix  IV  contains  example 
programs 

Those  readers  wanting  an  introduction  to  CLU  should  read  Sections  I  through  I?  in  order, 
concentrating  on  Sections  I  through  I  A  9.  and  P  (A  brief  introduction  may  be  found  In 
( I  islov^**)  >  Appendix  IV  should  also  be  of  interest  After  becoming  familiar  with  CLU.  specific 
questions  can  be  answered  ba  consulting  Sections  A  thtough  P  and  Appendices  I  through  III 

We  would  greatly  appreciate  receiving  comments  on  both  the  language  and  this  manual. 
(  om ments  should  be  sent  to  Batbara  l  ukov.  I  aboratoty  for  Computer  Science.  Massachusetts 
Institute  of  Technology.  MS  Technology  Square  Cambridge.  MA  0?179 

(I  islovTI]  l  iskov.  R.  Snyder.  A  Atkinson.  R  and  Schaffert,  C  Abstraction  Mechanisms  In 
CLU  r  r-i-i  4(  Af  :0.  S  <  Aug  19771.  AM  A7f> 

Keywords  programming  languages  data  abstractions  strong  type  checking,  modularity,  exception 
handling  iteration  abstractions.  CLU 
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1.  Modules 

A  CLU  program  consists  of  a  group  of  modules  Three  kinds  of  modules  are  provided,  one 
for  each  kind  of  abstraction  that  we  have  found  to  be  useful  in  program  construction  Procedures 
support  procedural  abstraction,  iterators  support  control  abstraction,  and  clusters  support  data 
abstraction 

1.1  Procedures 

A  prciedure  performs  an  action  on  zero  or  more  argument  objects,  and  terminates  returning 
zero  or  more  tetull  objrcts  All  communication  between  a  procedure  and  its  invoker  generally  lakes 
place  through  these  argumenis  and  results,  a  procedure  has  no  global  variables  unless  it  is  defined 
in  a  cluster  that  has  own  variables  A  procedure  may  retain  objects  from  one  invocation  to  the 
next  through  the  use  of  local  own  variables 

A  procedure  may  terminate  in  one  of  a  number  of  rcnditicm  One  of  these  is  the  normal 
conditicsn.  the  others  are  exceptional  conditions  Differing  numbers  and  types  of  results  may  be 
returned  in  different  conditions  All  information  afxnit  the  names  of  conditions  and  the  number 
and  tyj^es  of  arguments  and  results  is  described  in  the  ptnedure  beading  For  example. 

square  root  •  proc  <x  reaP  return!  <re*P  atgnala  <no  real_result> 
is  the  heading  of  a  square  root  procedure,  which  takes  a  single  real  argument  Square_root 
terminates  either  in  the  normal  condition  (returning  the  square  root  of  x*  or  in  the  no_real_result 
condition  (returning  no  results* 

1.2  Iterator* 

An  iterator  computes  a  sequence  of  item  based  on  its  input  arguments  These  Items  are 
provided  to  its  invoker  one  at  a  time  Fach  item  enmists  of  zero  or  more  objects 

An  iterator  is  invoked  by  a  for  statement  The  iterator  provides  each  item  by  yielding  it  The 
objects  in  the  item  are  assigned  to  the  loop  variables  of  the  for  statement,  and  the  body  of  the  for 
statement  is  executed  Then  control  is  returned  to  the  iterator  so  it  can  yield  the  next  Item  in  the 
sequence  The  foe  kmp  is  terminated  when  the  iterator  terminates,  or  the  for  loop  body  may 
explicitly  terminate  Itself  and  the  Iterator 
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Just  lik «•  a  procedure,  an  iterator  has  no  global  variables  unless  it  is  defined  in  a  i luster  that 
has  own  vatiahlrs  An  iterator  may  retain  oh  jests  from  one  invocation  to  the  next  through  the  use 
of  local  own  variables  An  iterator  may  also  terminate  in  one  of  a  number  of  conditions  In  the 
normal  condition,  no  results  can  be  returned  but  different  numbers  and  types  of  results  can  be 
returned  in  the  exceptional  conditions  All  information  about  the  names  of  conditions,  and  the 
number  and  types  of  arguments  and  results  is  described  in  the  iterator  heading  For  example, 
leaves  -  Iter  (t  tree'  yields  (node' 

is  the  heading  for  an  iterator  that  produces  all  leaf  nodes  of  a  tree  ob  jrct  This  iterator  might  be 

used  in  a  for  statement  as  follows 

for  leaf  node  In  leavestx)  do 
examine! leaf  * 
end 

1.3  Clusters 

A  duller  implements  a  data  abstraction,  which  is  a  set  of  objects  and  a  set  of  primitlp e 
operationi  to  create  and  manipulate  those  objects  The  operations  can  be  either  procedural  or 
control  abstractions  The  du  iter  heading  states  what  operations  are  available,  e  g  . 

int  set  -  cluster  Is  create  insert,  elements 
states  that  'he  opera’ions  o'  int  set  are  create,  insert  and  rlenenti 

A  cluster  is  used  to  implement  a  dis'inct  data  fyf*e.  different  from  all  others  Users  of  this  type 
are  constrained  to  treat  obje.  >c  of  the  tvj>e  abstractly  That  is,  the  objects  may  be  manipulated  only 
via  the  primitive  ojrerations  This  means  that  information  about  how  the  objects  are  actually 
represented  tn  storage  may  not  be  used 

Inside  the  duster,  a  concrete  reorientation  tin  lerms  of  some  other  ryj>e)  is  chosen  for  the 
objects,  and  the  operations  aie  implemented  in  terms  of  this  representation  Fach  ojreration  u 
implemented  by  a  rrufinr  <a  procedure  or  iterator*,  these  routines  are  exactly  (ike  those  not 
contained  in  clusters,  except  that  they  can  treat  the  objrcts  being  defined  by  (he  cluster  both 
abstractly  and  in  terms  of  the  concrete  representation  (The  ability  to  treat  objects  abstractly  Is 
useful  when  defining  recursive  data  structures,  where  the  concrete  representation  makes  use  of  the 
new  type  '  A  cluster  may  contain  additional  procedures  and  iterators,  which  are  purely  for  local 
use.  these  routines  do  nor  define  operations  of  the  type  The  routines  in  a  cluster  are  nof 
considered  to  he  separate  modules,  they  are  simply  part  of  the  cluster  module 
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A  cluster  may  also  contain  own  variables  whose  lifetimes  are  independent  of  routine 
activations  These  variables  are  globally  available  to  all  routines  In  the  cluster,  but  are  not 
available  from  outside  the  cluster 

1.4  Parameterized  Modules 

Procedures,  iterators  and  clusters  can  all  be  pu'deirrrnjrcf  Parameteruation  provides  the 
ability  to  define  a  class  of  related  abstiactions  by  means  of  a  single  module  Parameters  are  limited 
to  the  following  types  Int  real  bool  char  string  null,  and  type  The  most  interesting  and 
useful  of  these  are  the  type  parameters 

When  .<  module  is  parameterized  by  a  type  parameter  this  implies  that  the  module  was  written 
without  knowledge  of  what  the  actual  parameter  type  would  he  Nevertheless,  if  the  module  is  to 
do  anything  with  objects  of  the  pa'ameter  tyj>e  certain  operations  must  be  provided  by  any  actual 
type  Information  al>out  required  operations  is  described  in  a  wh*r*  clause  which  is  part  of  the 
heading  of  a  parameterited  module  For  example 

set  -  cluster!!  type)  Is  create  insert  rlements 

where  I  has  equal  proctype  <t.  t>  returns  (boob 

is  the  heading  of  a  parameterized  cluster  defining  a  generalized  set  abstraction  Sets  of  many 
different  rlemenr  rvjws  can  be  obtained  from  this  dimer,  huf  the  where  clause  states  that  the 
element  type  is  constrained  to  provide  an  tjual  operation 

To  use  a  parameterized  module  actual  values  for  the  parameters  must  be  provided,  using  the 
general  form 

module  name  [  parameter  valurs  I 

Parameter  values  must  be  computable  at  the  time  thry  are  compiled  Providing  actual  parameters 
selects  one  abstraction  out  of  the  dace  of  related  abstractions  defined  by  the  parameterized  module, 
since  the  values  are  known  at  compile  lime  the  compiler  can  do  the  selection  and  can  check  that 
the  whtre  clause  restrictions  are  satisfied  The  result  of  the  selection,  in  the  case  of  a 
parametrnred  duster,  is  a  type  which  can  then  be  used  in  declarations,  in  the  case  of 
parameterized  procedures  or  iterators,  a  procedure  or  iterator  is  obtained,  which  Is  then  available 
for  invocation  For  example  serf  Ink!  is  a  use  of  the  set  abstraction  shown  above,  arvd  Is  legal 
because  Ini  does  have  an  rquat  operation 
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A  |i«i ametrriird  clusirr  procedure.  ot  iterator  is  said  lo  implement  a  lypt  gene»aft»r.  puxtdurt 
generator  or  iterator  gtifiator.  respectively 

1.6  Program  Structure 

As  was  mentioned  before.  a  prny; ram  consists  of  a  group  of  modules  Facb  module  defines 
either  a  single  abstraction  or  i!  parameterired,  a  class  of  related  abstractions  Modules  are  never 
embedded  in  ivher  modules  Rather  the  program  is  a  single  level  structure,  with  all  modules 
potentially  usable  by  all  other  modules  in  the  program  Type  checking  of  inter  module  references 
is  earned  out  using  information  in  the  module  headings  augmented,  in  the  case  of  clusters,  by  the 
headings  of  the  procedures  and  iterators  that  implement  the  operations 

lath  module  is  a  separate  Textual  unit  anil  is  compiled  independently  of  other  modules 
Compilation  and  program  construction  are  discussed  in  Section  4 


2.  Dntn  Types 

One  of  (he  primary  yoals  of  ClIJ  was  in  provide  through  clusters,  a  type  extension 
me.  hanism  thy*  permits  use*  defined  types  to  he  treated  as  similarly  as  possible  to  built  in  types 
T  his  goal  his  hern  achieved  to  a  large  eiren:  Both  built  in  and  user  defined  types  are  viewed  as 
providing  sr's  of  primitive  nperi'mns.  with  atress  to  the  real  representation  information  limited  to 
past  these  operations  The  ways  in  whi  h  built  in  types  differ  from  user  defined  types  will  be 
discussed  in  Section  ?  1  below 

2.1  Built-In  Types 

C  l  I  I  provides  a  ri  h  set  of  built  in  types  and  'ype  generators  1  be  built  in  types  are  tnt.  real, 
bool  cher  tiring  null  and  any  Ini  and  real  provide  the  usual  arithmetic  and  relational 
operations  on  integers  and  real  numbers  and  bool  provides  the  standard  boolean  operations 
Cher  is  the  full  AS(  II  (hararter  set  ihr  usual  relational  operators  are  provided  along  with 
conversion  lo  and  from  in'rgrrs  Stringy  a’r  possibly  empty'  secjuences  of  characters,  usual  string 
ope'  a  lions  like  selecting  the  ifA  chyrytter,  and  concatenation  are  provided  However,  strings  are 
somewhat  unusual  in  that  string  nbyts  cannot  hr  modified  For  esample.  it  is  not  possible  to 
change  a  character  in  a  strmf  ins’  ad.  a  new  string  differing  from  the  original  in  that  position. 
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may  tve  created 

Mull  it  j  type  containing  one  object.  nil  Null  it  used  primarily  in  conjunction  with  the  tagged 
union  type  discussed  below 

Any  it  provided  to  jvrrmit  in  ewajve  from  compile  time  type  checking  The  type  «ny 
intrcwlucrt  no  new  objects.  but  instead  may  l»e  used  it  the  tyjve  of  a  variable  when  the  programmer 
with^t  to  assign  object!  of  different  ty|>et  to  that  variable-  or  dort  noC  know  what  kind  of  object 
will  hr  assigned  to  the  vanble  (  ID  provides  a  bulk  in  procedure  generator.  fore*  which 
fwr  mitt  a  run  ’ime  examination  of  the  tyjw  of  objrct  named  by  a  variable  of  type  any 

T  be  built  in  tyj>e  getter  a  ton  a’r  array  tequtncf  record  struct  oneof.  variant 
proctype  and  Itertype  Afjys  are  one  dirventional  The  tyjve  of  element  contained  in  the  array 
it  specified  by  a  rt|>e  parameter  eg  array*  Int)  and  arm/,  arrayf  Inti)  <The  latter  rxample 
thowt  how  i  -wo  !i  mem  ion  a  I  a**av  might  l>e  handler!  '  C  l  U  arrayt  are  unutual  in  that  they  can 
grow  dynami  a II v  An  a**ay  it  >t'en  empty  when  firtt  created  but  there  it  alto  a  tjvecial  array 
ccmfrui  for  tperifyinr  initial  elenven't  Acav  ofverittont  can  grow  and  thnnk  the  array  at 
either  end  query  the  current  tire  and  low  art  !  high  bounds  of  the  array,  and  arcett  and  replace 
elemenrt  within  ‘be  current  hounds 

Sequences  are  immutable  arrayt  in  that  the  tire  o'  a  sequence  can  not  t>e  changed  dynamically, 
and  new  rlerven't  can n<v  |>e  vrored  into  a  vrquence  New  vequen ret  can  be  constructed  from 
existing  tequentrs  m  men  h  the  varve  way  at  ne.  ttringt  are  creatH  Sequence  ojverations  are  culled 
from  both  tiring  and  array  ofverationi  and  the*e  it  a  tpeoal  refuence  con rtrudar.  which  it 
tyntacMc  a  lly  ttmilar  to  the  array  constructor  form 

Cl  II  records  a r e  he*er ogeneout  collectiont  o‘  (cvmpnnrnt  objrctt  each  component  it  accetved  by 
a  cele-tcv  name  Records  mutt  t>e  evplicitly  cmt'nr'rd  by  meant  of  a  tjvecial  r err'd  ccrttlrtulcr 
The  comtructor  'equiret  rha*  an  objrct  |>e  provided  for  each  component  of  the  record,  thll 
requi  'ement  emuret  that  no  component  n 4  the  reord  it  undefined  in  the  tenve  of  naming  no 
object  Record  opera'inot  permit  selection  of  component  object!  and  replacement  of  components 
with  new  ob  jrett 

StrucMjrrs  are  immutable  records,  in  that  the  componenti  of  a  structure  cannot  be  replaced  with 
new  ob  jrcts  Structures  are  rnmtructed  by  means  of  a  tttudurt  (pnitrutlcr,  which  is  syntactically 
Identical  to  the  record  constructor  form 
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A  oneof  tyj>e  it  a  diwrimtnated  union  1  hr  objrcti  of  a  oneof  type  each  too  ml  of  a 

Mg  'an  identifier!  and  a  component  object.  imrol  object!  with  diffrrrot  tag!  may  have  (Dtnponml 
object*  of  different  type*  A  oorof  o hjrct  once  created.  cannot  hr  changed  Thu*.  oneof  type* 
provide  a  capability  timilar  to  that  provided  by  variant  rrcordi  in  Paual  Operation!  are 
provided  lor  creating  ooeot  object*  Oneof  object!  are  utually  decompoted  through  the  tagcaao 
ilatrment 

Variant*  are  mutable  oneof *  The  tar  and  component  object  of  a  variant  can  be  replaced 
umult  aneoudy  with  new  value!  like  oneof !.  variant!  are  utually  decompoted  through  the 
tage air  Matement 

Procedure  and  rerator  lypei  provide  procedure!  and  iterator!  ai  fir!t  clavt  objrcti.  le.  routine! 
fine  hiding  fhove  in  clutter*1  an  f>r  acctgnej  to  variable*  and  can  occur  ai  component!  of  other 
object*  I  heve  type*  are  parameter  irrd  hy  all  the  miormarion  appearing  in  a  procedure  or  Iterator 
hra  ling  with  the  riepfton  of  the  formal  argument  nan>ei 

In  addition  ro  all  the  hull!  in  !yj»et  and  type  generator*  mentioned  above.  CLU  program!  may 
alvo  make  me  (><  rhe  r > jw  type  T  he  uce  0f  type  value*  li  limited  to  parameter*  of  par arnrtrrlted 
rrwvlnle!  l here  are  no  argument!  or  vanahlec  ol  type  type 

finally  (111  provide!  a  number  of  tyjvri  and  procedure*  to  Mipport  I/O  Tbeve  typei  are  not 
comide»ed  to  f»e  built  m  type*  of  Cl  U.  but  they  mcjvt  he  available  in  the  library  There  type!  are 
deurihed  in  Append  it  III 

2.2  User-Defined  Types 

liver*  rvay  define  new  tyjwc  by  providing  cKiy'er*  that  implenyenc  them  The  clu*ter  may 
implement  a  !ingle  type  or  in  the  cave  o'  a  pa’ame'erijed  clutter.  a  group  of  related  type*  The 
type  or  tyj*et  defined  hy  a  clmrer  are  di*!inct  from  all  built  in  lypei  and  from  atl  type*  defined  by 
erfher  chittrrt 

2.3  Comparison  of  User-Defined  and  Built-In  Types 

l  ode  dittmction  i*  made  between  lire-  defined  type*  and  built  in  type*  Either  can  be  uied 
freely  to  declare  the  argument*.  variable*  and  remit*  of  routine*  In  addition,  in  either  cate  there 
I*  a  *e<  of  primi'tve  oj*era’ioni  aivociatrd  wgh  the  type  and  the  tame  tyntat  it  utrd  to  invoke  theie 
operation*  The  O'  linary  tyntat  to  name  an  operation  l! 
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type  t  op  name 

Since  till  fetrnt  typet  will  often  have  nfterationi  of  the  umr  namr  <e  g  .  (teaitt.  (hit  compound  form 
li  u«xl  to  avoid  ambiguity 

For  many  ufwrattom  there  it  alto  a  (uttomary  al>brrviat»d  form  of  invocation.  which  tan  be 
uted  for  uirr  def  med  typet  at  well  at  for  built  in  lyprt  T  here  it  a  ttandard  tranilation  frtim  Path 
abbreviated  form  to  the  ordinary  form  of  invoration  For  example  an  addition  operation  it 
utually  invoked  uting  the  inf  it  notation  *x  .  y'.  ihit  it  trantlatrd  into  "Tladdf*.  y>*.  where  T  it 
the  fyjw  of  i  l  x tending  notation  to  uter  defined  tyjiet  in  thn  way  it  tometimet  called  ppfraior 
«>er/<\j.fr»t j  We  jte-mit  almcitt  all  vjteual  tyntj'  to  l*e  ovetloaded.  there  are  alwayt  convtrainti  on 
the  overkxading  definition  <e  r  .  <j  <f.f  mutt  have  two  input  argument!  and  one  retulO,  but  they  are 
ryuite  minimal 

Neverthelett  there  ate  th're  main  dntmctiont  between  buih  in  !v|tet  and  liirr  defined  type! 

1  Ruth  in  type  and  type  generator  namet  cannot  tte  redefined  <1  hit  it 
why  we  alwayt  thow  then  m  boldface  m  thn  document  > 

2  Some  boil!  in  fypet  eg  tnt  real  etc  have  liter  a  It  There  it  no 
rrxechamtm  for  defining  liter  a  l\  for  over  defined  tyfwi 

'  Some  built  m  t>|vec  a>e  related  to  certain  other  conUructt  of  C-LU  For 
example  the  tagcaie  tfatemenr  n  a  control  c on tf react  ecpec rally 
provided  to  jwrmit  ditcrimination  on  oneof  and  variant  pbjrctt  In 
addition  in  placet  where  compile  time  conttantt  are  required,  eg.  at 
actual  parameter!  to  parameierijed  modulei.  the  etprettiont  that  may 
appear  are  limiteil  to  a  tuhtrf  of  the  built  in  typet  and  their  oprradom 
One  rea von  for  thn  limitation  n  that  the  permitted  (ypet  are  known  to 
contain  only  inn ulab/t  object!  (tee  Section  t  |) 


3.  Semantics 

All  language!  prevent  their  uteri  with  tome  model  of  computation  Thn  teuton  devrihe-  thene 
atpeui  of  Cl  If  temantict  that  differ  from  the  common  ALGOL  like  model  In  particular,  we 
ritwtm  the  notmnt  of  objeut  and  xanahWt  and  the  defimtioni  of  avugnment  and  argument 
patting  that  fnlkow  from  thete  normnt  We  alto  ditcutt  type  correct  nett 
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3.1  Objects  and  Variables 

I  be  basic  rlrrsenis  c>(  (111  semantics  arr  isFjecM  and  tnuaNn  Objects  are  the  data  entities 
that  arr  created  and  manipulated  by  programs  Variables  are  just  the  names  used  in  a  progtsm  to 
relet  to  objrcts 

lach  objrct  has  a  tyfc  which  c  haracterues  its  behavior  A  type  del tnrs  a  set  of  primitive 
<>j>erations  to  create  and  manipulate  objects  of  that  type  An  objnt  may  be  treated  and 
manipulated  only  via  the  operations  of  its  !>)*■ 

An  of’ jest  may  'ftrt  to  objrcts  lot  r\  ample  a  tecord  objrct  tef er s  to  tbr  ob jrcts  that  are  the 
components  of  the  record  I  his  notion  is  one  of  logical  not  physical,  containment  In  particular,  It 
is  jMosihtr  for  two  distinct  record  objects  to  refer  to  <<»t  j Aa re*  the  same  component  objrct  In  the 
case  of  a  c  yc  lt<  data  structure  it  is  even  possible  fc»r  an  object  to  "contain"  itself  Thus.  It  I* 
possible  to  have  recursive  da'a  structure  definitions  and  shared  data  objrcts  without  es i  pile  It 
ref  rrrnc  e  t  yjyrs 

Objects  ecist  indrj»eudrntly  of  procedure  and  iirtator  activanons  Space  for  objrcts  Is 
alW*  ate-i  from  a  dynami  storage  a'ra  as  the  result  of  invoking  constructor  operations  of  certain 
primitive  (It)  types  such  as  records  and  arrays  In  theory,  all  oh  jrcts  continue  to  r*iv!  forever 
In  practice  the  spa>r  met  by  an  obj r- •  may  b<  reclaimed  'via  garbage  collection'  when  that  objrct 
ts  no  Ion,  r-  accecsible  t  An  object  is  a  eccible  if  it  is  denoted  by  a  variable  of  an  active  routine  or 
an  own  variable  of  any  rluorr  or  rosrme  or  is  a  compenent  of  an  accessible  objrct  > 

Objects  mav  be  divide!  into  two  c  a'e,  o'  tec  Some  objects  e»hibit  time  varying  behavior 
Sin  h  an  oh  jn  >  ailed  a  -  .fjSV  of>je’  has  a  it  ti*  that  may  be  modified  by  certain  opera!  rant 
without  changin,-  'he  iden'i’y  r>?  the  erf’  gee  •  Peords  and  arrays  ate  riamples  of  mutable  objrcts 
For  n  ample  replacing  'he  i:*  eleownt  of  an)  array  a  causes  the  state  of  a  to  change  <to  contain  a 
different  object  as  the  ■  *  *  element' 

If  a  mutable  obj r- >  *i  is  shared  by  two  cVhe-  objects  »  and  y.  then  a  modification  to  *t  made 
via  t  will  be  vmhlr  when  »  is  ec  arsined  via  y  C  nmrsiinicatinn  through  shared  mutable  objects  Is 
rryos’  benefi  ial  in  the  ron’est  of  procedure  invoca’ion,  deuribed  below 

Ohjr-’v  tha‘  do  not  eshihit  time  varying  behavior  are  called  i"i"iufaK’e  objrcti  F»amples  of 
immutable  nh jrcts  ate  integerc  fxwdeans  characters,  and  strings  The  properties  of  an  immutable 
nbjrcf  do  nor  change  with  time  Three  properties  generally  do  ool  include  (he  properties  of  ing 
component  objects  For  eiample  a  sequence  is  immutable  even  though  it!  elements  mag  be 
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mutable 

Variable  at e  names  used  in  programs  to  ,ienott  particular  objects  at  execution  time  Unlike 
variables  in  many  (ommon  programming  Languages  which  aif  container t  lot  va lues.  CLU 
variables  are  simply  names  that  the  programmer  uses  to  refer  to  objrm  As  such.  it  is  possible  for 
two  variables  to  denote  tor  iA<i»e'  the  same  objest  (  l  U  variables  are  much  like  (hose  in  l.ISP, 
and  are  similar  to  pointer  variables  in  other  languages  However.  CLU  variables  are  net  objects, 
they  cannot  l>e  denoted  by  other  variables  or  referred  to  by  objects  Thus,  variables  declared 
within  one  routine  cannot  he  accessed  or  modified  by  any  other  routine 

3.2  AKsignment  and  Invocation 

The  basic  actions  in  CLU  are  ji and  intxxi«ri<**t  The  assignment  primitive  x  •  f, 
where  i  is  a  variable  and  /  is  an  expression  causes  i  to  denote  the  object  resulting  from  the 
evaluation  of  f  For  example  if  /  is  a  simple  variable  y  then  the  assignment  *  •  y  causes  *  to 
denote  the  objest  denoted  by  y  The  objrct  is  i<v  copied,  after  the  assignment  is  performed,  the 
object  will  (>e  lAjre.f  by  s  and  y  Assignment  does  not  affect  the  state  of  any  object 

Figure  I  illustrates  these  noticwss  of  object,  va'iabte  and  assignment  Mere  see  show  variables 
in  a  stack  and  objects  in  a  !  »p  <free  storage  area',  an  obvious  way  to  implement  CLU  Figure  la 
contains  three  objects  o.  8  and  y  a  is  an  integer  <in  fact,  1'  and  is  denoted  by  variable  r.  while  8 
and  y  are  of  type  serf  tnt]  and  are  denoted  by  variables  y  and  r.  respectively  Figure  lb  shows  the 
result  of  executing 
T  -  I 

Now  y  and  :  both  refer  to.  or  sha'e.  the  same  objrct  y.  8  is  no  longer  accessible,  and  so  can  be 
garbage  collected 

Invocation  involves  passing  argument  nbjrcts  from  the  caller  to  the  called  routine  and 
returning  result  objects  from  the  routine  to  the  caller  The  objects  returned  by  the  procedure,  or 
yielded  by  an  iterator,  may  be  assigned  to  variables  in  the  caller  Argument  passing  is  defined  in 
terms  of  assignment  the  formal  arguments  of  a  routine  are  considered  to  he  local  variables  of  the 
routine  and  are  mitialired.  by  assignment  to  the  objects  resulting  from  the  evaluation  of  the 
argument  expressions  We  tall  the  argument  passing  technique  tall  by  lAanig.  because  the 
argument  obpMs  are  shared  between  the  caller  and  the  called  routine  The  technique  does  not 
correspond  to  most  traditional  argument  passing  techniques  < it  is  similar  to  argument  passing  tn 
LISP'  In  particular  it  is  not  call  by  value  because  mutations  of  arguments  performed  by  the  called 
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rotitmr  will  br  vmhlf  'o  thr  cillrr  And  it  it  nm  <  ill  by  rrfrrmtr  brcativr  atcrtt  it  no*  givm  to  th? 
variablrt  nl  thr  rallr'  bt|f  mrrrly  in  (retain  objntt 

f  igurr  ?  illutiratrt  mvi«  alien  and  objrrt  mutation  ligurr  ?a  (ontinuM  from  thr  tituattort 
ihnwn  in  Fiftirr  lb  ind  illutiratrt  thr  tituatinn  immrdiatrly  aftrr  invrvation  of 
trlf  mlltmtrrli y  *> 

'bin  before  rarruting  thr  body  of  iitird'  /ni/rf  bn  two  formal  argummtv.  the  firtl,  J.  denotet  the 
ir'  and  thr  tr- nod.  r  dmnrrt  thr  intrgrr  in  br  intrttrd  into  j  Nrtfr  that  tbr  variablrt  of  fhr  callrr 
<t  y  and  ?>  atr  nor  atcnttblf  to  inirtr  ftfutr  !1)  illu«tatft  (hr  tiliiilion  afirr  uml  rfturtw  No*? 
that  objrtt  >  bat  t>rrn  modifiH  and  now  rrfrrt  fo  a  'the  trt  y  now  (onratm  A),  and  tine?  “f  If 
thatrd  by  borb  y  and  ?  fhr  modtf trafton  of  >  it  vmblr  through  bmh  thnr  variablrt 

Prorrdurr  invoraffont  may  br  mod  dirrrdy  at  ttatommtt.  Ibotr  that  rrturn  raacfly  one  object 
may  abo  br  utrd  at  raprrwont  Itrraiott  may  br  involrd  only  through  thr  for  itatrmmt. 
Arbitrary  rrruruon  among  prnrrdurrt  and  itrratort  it  prrmittrd 
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3.3  Type  -Correctness 

The  declaration  of  a  variable  tpr-ifiet  thr  type  of  theobjrctt  which  the  variable  mi y  denote 
In  an  attygnmrnt  the  ohjrit  denoted  by  thr  right  hand  wdr  mult  havr  ihr  umr  type  at  the 
variable  on  thr  left  hand  tile  thrrr  atr  no  implic  it  type  convertiont  <Thr  type  of  object  denoted 
by  an  rvprrttion  it  thr  return  type  of  thr  outrrnvott  procedure  invoked  in  that  evprettion.  or.  If  the 
evprettmn  n  a  variable  or  li’r’al  the  type  of  that  variable  or  literal)  There  it  one  tpettal  cate,  a 
variable  derived  to  he  of  type  any  may  be  actioned  the  value  of  any  eaprettion 

Argument  patting  it  def ined  in  termt  of  alignment  for  an  invocation  to  be  legal,  it  mutt  be 
potuhle  to  attipn  the  actual  argnmentt  <the  objrrtt'  to  the  formal  argumentt  (the  variablet)  litted 
In  the  heading  of  the  routine  to  he  invoked  furthermore,  a  return  <or  ylaltP  ttatement  It  legal 
only  if  the  revolt  nbjertt  could  he  legally  attigned  to  variablet  having  the  typet  Mated  in  the 
routine  heading 
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(III  it  a  tytr  t<jfe  language  in  (hat  it  it  not  possible  to  treat  an  object  of  type  T  at  if  if  were 
an  object  of  tome  tttfirt  tyjx  S,  in  particular  one  cannot  assign  an  object  of  type  T  to  a  variable  of 
tyjx  S  (unless  S  it  any1  Thr  tyjx  any  provides  an  escape  from  compile  tmx  type  determination, 
and  a  built  in  procedure  generator  force  can  be  uted  query  the  type  of  an  object  at  run  time 
However,  any  and  force  are  del  mrd  in  tuch  a  way  that  the  tyjx  vafety  of  the  language  it  not 
undermined  I  hr  type  vatety  of  (  1  U  pint  thr  rrttrution  that  only  the  code  in  a  clutter  may 
convert  between  thr  ahttract  type  and  thr  concrete  rrprrtentation  inture  that  the  behavior  of  an 
object  it  indeed  charactrrirrd  completely  by  the  ojxrationt  of  itt  type 


4.  Tha  Library 

At  wat  mentioned  earlier,  it  it  intended  that  the  modulet  making  up  a  program  all  be  teparate 
compilation  unitt  A  fundamental  requirement  of  any  C.LU  implementation  it  that  it  tupport 
teparare  compilation,  with  type  checking  of  inter  module  referencet  7  hit  checking  can  be  done 
either  at  compile  time  or  at  load  lime  'when  a  group  of  teparaiely  compiled  modulet  are  combined 
together  to  form  a  program*  A  tecond  fundamental  requirement  it  fhal  Ibe  implemrnlatlon 
tupport  top  down  programming  The  definition  of  C  l  U  dors  not  tfxufy  how  an  mplrmenlalion 
should  meet  three  requirements  However,  in  thit  section  wr  devrifx  the  current  C.LU 
implementation  whi  h  may  verve  av  a  model  for  otherv 

Our  implement  a  rion  mikev  uve  of  thr  (  III  library  which  playt  a  central  role  in  supporting 
intr*  module  refr’ernrv  1  hr  litirary  rnntatns  information  afmut  all  ahtfractiont  It  support! 
incremrnral  program  dev rtopment  onr  abstraction  a!  a  rime  and.  in  addition,  makrv  abstraction! 
that  are  defined  during  the  construction  of  one  program  available  at  a  bant  for  subsequent 
program  development  The  information  in  the  library  permits  the  ceparate  compilation  of  tingle 
modules  with  rnmple’e  type  checking  at  compile  time  of  all  exrrnal  reference!  (inch  at  procedure 
names) 

The  library  provides  a  hierarchy  al  narx  vpace  for  retrieving  information  about  abstraction!. 
The  leaf  nodes  of  the  library  are  (f/i, ri fttirn  untfi  <DUt*.  one  for  each  ahtlraction  Figure? 
illustrates  (he  Urartu  re  of  the  library 


3.  A  »k«ih  of  the  library  mixture  showing  a  DU  with  pathname  B  Y 


A  DU  contains  all  lyitem  maintained  inlorrnation  about  its  abstraction  A  sketch  of  the 
structure  of  a  DU  n  shown  in  figure  f  for  purposes  of  program  development  and  module 
compilation  two  pier es  of  information  mint  he  included  in  the  DU  implementation  information, 
describing  rero  or  more  mcwlules  that  implement  the  ahitrartion.  and  the  interface  specification 
The  interfa.e  t pe,  tfuattcn  it  that  information  needed  to  type  check  uses  of  the  abstraction  For 
procedural  and  control  abstractions  this  infotmaiion  consists  of  the  number  and  types  of 
parameters  arguments  and  results  the  names  of  ecceptronal  conditions  and  the  number  and  types 
of  results  returned  in  each  case  plus  any  constraints  on  type  parameters  <if ,  the  wlttr*  clause,  as 
devrtbed  in  Section  I  1>  For  da’a  abstractions,  it  includes  the  number  and  typei  of  parameters. 


4.  A  sketch  showing  the  structure  of  a  DU 
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constraints  on  type  par  ymeters.  an  1  the  mn»  ind  interface  specification  of  rich  ojyeration 

An  abstraction  is  entered  in  the  library  by  submitting  the  interface  specification.  no 
implementations  are  required  In  fact,  a  module  can  f>e  compiled  before  any  implementations  have 
been  provided  for  the  abstractions  ib.»r  it  tiers,  it  is  netrssary  only  that  interface  specifications  have 
hern  given  for  those  abstractions  Ultimately,  there  tan  he  many  implenvenlattons  of  an 
ahstraction.  eatb  implementation  is  required  to  satisfy  the  interface  specification  of  the  abstraction. 
Rrt  mse  all  uses  and  implementations  of  an  ahstrattion  are  checked  against  the  interface 
spei  iftcation  the  actual  selr-. non  ot  an  implementation  can  f>e  delayed  until  just  before  <or  perhaps 
during'  execution  We  imagine  a  process  nf  binding  together  mcvlules  into  programs,  prior  to 
execution  •'  which  time  this  selec'ion  would  fe  made 

An  important  detail  is  the  method  by  which  modules  refer  to  abstractions  To  avoid  the 
problems  of  name  conflicts  that  can  arise  in  large  systems  the  names  used  by  a  module  to  refer  to 
abstractions  can  f>e  chosen  to  suit  the  progr ammrr's  convenience  When  a  nvcxlule  is  submitted  for 
compilation  its  eyre-nyl  refrren  es  must  be  hound  to  tills  vo  that  tyjve  c  bee  k  mg  can  be  performed 
The  binding  is  ac  complished  fc>  <onstructin|  a  , en  :•«  eon  "senC  K  F  '  mapping  names  to 
t)lls  and  constants  which  is  passed  to  the  compiler  along  with  the  source  code  when  compiling  the 
mcxtule  A  copy  of  'Ice  (  f  is  stored  bf  the  compiler  in  (he  library  as  parr  of  the  module  A  similar 
process  is  involved  in  entering  interface  specif  it  atiom  of  abstractions,  since  these  interfaces  can 
include  references  to  other  tala  abstractions 

When  'he  compiler  type  dir  b  a  rwxltrle  it  uses  the  compilation  environment  lo  map  the 
external  names  in  ihe  nvvlule  to  constants  and  IHIs  and  then  uses  the  interface  specifications  in 
the  referenced  Dlls  to  check  tha'  -he  ahstr ac t leans  are  used  correctly  The  type  correctness  of  the 
mcvfule  thus  depends  upon  the  binding  o'  ex'ernal  re*erences  and  the  interface  specifications  of  all 
referenced  DUs  and  >  naitd  he  invalidated  if  hanf.es  to  the  binding  or  the  interface  specifications 
were  subsequently  made  For  this  reason  the  privets  of  compilation  permanently  hinds  a  module  to 
the  abstra<  'ions  it  uses  and  'he  inter'acr  specification  of  an  abstraction,  once  defined,  is  not 
allowed  to  change  Of  course  a  new  fill  can  he  created  to  describe  a  modified  abstraction 
Furthermore  during  design  before  any  implementing  modules  have  been  entered  into  the  system! 
it  is  reasonable  to  permit  abstraction  interfa  e<  to  change 

Typically  a  small  in  medium  sired  p»o(e*i  will  use  rmly  one  CF.  thereby  esiablisbing  a 
consis'ent  vocabulary  for  use  by  all  programmers  1  arger  projects  might  have  a  number  of 
< possibly  'overlapping^  C  F  s  each  spec  tallied  for  some  subproject 
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The  l  ibrary 


l« 


1  he  library  and  DU  structure  described  abovr  un  be  used  fo»  purport  other  than  compiling 
and  loading  program!  In  each  case.  additional  mloimatiun  can  be  stored  in  the  DU.  thr  'other' 
fields  shown  in  Figure  1  are  intruded  lo  itluvtijlr  such  additional  inloimation  For  example.  the 
library  provide  a  good  bam  foi  program  verification  Here  thr  'other'  inlormation  in  the  DU 
would  contain  a  formal  specification  of  thr  abstiattion.  and  possibly  some  theorems  that  had  been 
provrd  abcmt  thr  abuiaction.  while  lor  rach  implementation  that  had  t>rm  vrrifird.  an  otillinr  of 
thr  correctness  proof  might  l>r  rrtainrd  Additional  uses  of  thr  library  includr  rrtmtlon  of 
debugging  and  optimiration  information 


6.  Notation 


Wr  use  an  extended  KNF  grammar  to  define  thr  syntax  Thr  gmrral  form  of  a  production  It 

nontrrminal  r  altrrnativr 
|  altrrnativr 


|  altrrnativr 

Thr  following  extensions  arr  used 

a  .  ...  a  list  of  onr  or  morr  a's  separated  by  commas  ’a*  or  *a.  a’  or 
’a.  a  a*  rtc 

^  a  }  a  sequence  of  rrro  or  morr  <j'i  *  *  or  "a*  or  ’a  a*  rtc 

[a]  an  optional  d  "  *  or  "a* 

Nontrrminal  symbols  apfwar  in  normal  fair  Reserved  words  appear  in  bold  face  All  othrr 
terminal  symbols  arr  mm  alphabetic,  and  appear  in  normal  face 

Full  productions  arr  not  always  shown  in  thr  body  of  this  manual,  often  alternatives  are 
presented  and  explained  individually  Appendix  I  contains  thr  complete  syntax 
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6.  Lexical  Considerations 


A  module  is  written  at  a  sequence  ol  tokens  and  separators  A  tc<krn  is  a  sequence  of  'printing* 
As(  II  characters  (octal  value  yn  thru  l"V  representing  a  reserved  word,  an  identifier,  a  literal,  an 
operator  or  •  punctuation  symbol  A  jrfxj'ii.Vr  is  a  "blank*  character  (space,  vertical  tab.  horizontal 
tab.  carriage  return  newline  form  feed'  or  a  comment  In  general,  any  number  of  separators  may 
appear  between  tokens  I  okens  and  separators  are  described  in  more  detail  in  the  sections  below 

8.1  Reserved  Words 


The  following  character  sequences  ate  reserved  words 


any 

evt 

fewer 

oneof 

returns 

true 

artav 

do 

his 

others 

sequence 

type 

begin 

down 

if 

own 

signal 

up 

bind 

else 

in 

ptoc 

signals 

variant 

break 

elseif 

inf 

proctype 

stung 

when 

cand 

end 

IS 

real 

struct 

where 

char 

ex  rept 

iter 

record 

while 

cluster 

exit 

Mfftjpe 

rep 

tagease 

yield 

continue 

false 

ml 

reiignal 

then 

yields 

cor 

for 

null 

return 

’  and  lower  case 

letters  are  not 

distinguished 

in  reserved  words  For  example. 

end’.  ’F.ND 

Nd  are  all  thr  same  reserve!  w 

ord  Reserved 

words  appear 

in  bold  face  in  this  document 

8.2  Identifiers 

An  iifen.'ifie-  is  a  sequen  e  of  letters  digits  and  underscores  that  begins  with  a  letter  or 
underscore  and  'ha'  is  not  a  reserved  word  As  in  reserved  words,  upper  and  lower  case  letters  are 
not  distinguished  in  identifiers 

In  rhe  synra>  fhe>e  are  two  different  nonterminals  for  identifiers  The  nonterminal  tefn  is  used 
when  the  identifier  has  sc ny>e  'see  Section  A  1',  idns  are  used  for  variables,  parameters,  module 
names  and  as  abbreviations  for  constants  The  nonterminal  ’i<J"i/  is  used  when  the  identifier  Is 
not  subject  to  \<nj>e  rules,  names  .ur  used  for  record  and  structure  selectors,  onenf  and  variant  tags, 
operation  names  and  exceptional  condition  names 


Literals 


*6* 

6.3  Literals 

There  are  liter  a  li  lor  naming  objects  o(  the  built  in  types  null.  bool.  Int.  real.  char,  and 
string  Their  (mmi  arr  discussed  in  Section  7 

6.4  Operators  and  Punctuation  Symbols 

Thr  following  character  sequences  arr  used  at  operators  and  pumtuation  symbols 

I  ,  <  •  «.<•  -  •• 

»  -  .  // 

».  /  It 

(  f  >  »>  I 

) 

<  •  R 

6.5  Comments  and  Other  Separators 

A  (r-r-rri !  is  a  sequence  of  characters  that  begins  wish  a  percent  sign  (X).  ends  with  a  nrwltnr 
character,  and  contain!  only  printing  ASC  II  characters  and  horizontal  tabs  In  between  For 
example 

t  -  atll  •  1  a  comment  in  an  repression 

Hi) 

A  srfsj  '■i fcr  is  a  Manl  character  (space  vrrtrcal  tah,  horizontal  tab,  carriage  return,  newline, 
form  feed'  or  a  comrwn'  Zero  or  more  separators  may  appear  between  any  two  totem,  except  that 
at  least  one  separator  is  required  between  any  (wo  adjacent  non  self  terminating  tokens  reserved 
swords,  identifiers,  integer  literals,  and  real  literals  This  rule  is  necessary  to  avotd  lexical 
ambiguities 

6.6  Semicolons 

The  use  of  semicolons  I.)  to  terminate  statements  and  various  phrases  is  permitted  in  CLU,  but 
semicolons  are  completely  optional  and  their  use  is  discouraged  Placement  of  semicolons  is  not 
shown  in  the  body  of  this  manual,  refer  to  the  complete  syntax  in  Appendix  1 


Types  I  yj>e  l.rneiators,  and  Tyj>e  Specifications 
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7.  Types,  Type  Generators,  and  Type  Specifications 

A  ryt>f  consists  of  a  set  of  objects  together  with  a  set  of  operations  to  manipulate  the  objects 
As  discussed  in  Section  1  1  tyj.es  can  he  classified  according  to  whether  their  objects  are  routable  or 
immutable  An  immutable  object  (eg.  an  integer!  has  a  value  that  never  varies,  while  the  value 
•  state'  of  a  mutable  object  can  vary  over  time 

A  /yhe  gencj/or  is  a  j>or is-.r.vn :r.f  type  definition,  representing  a  (usually  infinite)  set  of 
related  tyj.es  A  particular  tyjie  is  obtained  from  a  type  generator  by  writing  the  generator  name 
alont  with  sj.es  if  ic  values  for  the  j.araroeters.  for  every  distinct  set  of  legal  values,  a  distinct  type  Is 
obtained  for  example,  the  array  tyj.e  generator  has  a  single  j.arameter  that  determines  the 
element  tyj>e  array!  ml)  array I  real),  and  array1,  array!  mt1)  ate  three  distinct  types  defined  by 
the  array  tyjie  generator  I  yj.es  obtained  f  rom  tyj>e  generators  are  called  Jnirdet rtrnttii  types, 
others  are  c  a  lie'  1  nnr'e  types 

Within  a  program  a  tyj.e  is  sj.r-  u  .ed  by  a  syntactic  construct  called  a  typf  ip<<  The  type 
sj.e.  if  i  at  ion  for  a  simj.lr  tyj.e  is  just  ihe  identifier  for  reserved  word)  naming  the  tyj>e  For 
j.  i  r  a  meter  i  red  tyj.es  the  tyj.e  sjve.  if  u  ation  consists  of  the  identifier  (or  reserved  word*  naming  the 
type  generator,  together  with  the  parameter  values 

T  his  se  inn  ,  ives  an  informal  introduction  to  the  built  in  tyj.es  and  tyj»e  generators  juovided 
by  (ID.  many  de»tils  <suh  as  error  conditions’  are  not  discussed  C  omplete  and  precise 
def  in  it  ions  are  given  in  Aj»j>endix  II  Sections  7  1  to  describe  the  objects,  literals,  and  some  of 
the  operations  fnr  ea  h  of  the  bud’  in  Ivjws  »hile  Sections  7  A  to  11  describe  Ihe  objects,  type 
s  j.e*  if  ir  a  ’  icsn  c  in  1  inleresting  ojwr  aliens  o'  tyj.es  obtained  from  the  huilr  in  tyj*e  generators  A 
number  of  ope>atlons  an  lw  invoked  using  infix  and  juefix  operators  as  the  various  operation 
names  are  introduced  Ihe  corresponding  oj«erator  if  any  will  follow  in  parentheses 

In  addition  we  describe  tyj>e  sjve.  if  ic  atmns  (or  user  defined  types  and  other  sjvecial  type 
sj»e«  if  ir  atoms  in  Seriinn  ^  I1*  The  mechanism  hy  which  new  tyjves  and  tyjve  generators  are 
implemenred  is  presented  in  Section  l1 

7.1  Null 

The  tyj>e  null  has  exa  tly  one  immutable  object,  represented  hy  the  literal  nil  1  he  type  null  Is 
generally  lived  as  a  kind  of  ‘place  filler"  in  a  onenf  or  variant  type  (see  Sections  7  I?  and  7  1A) 


7.2  Bool 


The  ( wo  immuutilf  objrxtt  of  type  bool  with  literati  tru«  and  fall*  repretent  logical  truth 
valuer  The  binary  ope  r  attorn  equal  (-).  and  <4r'.  and  pr  (It.  arr  provided,  at  writ  at  unary  no/  <~l 

7.3  Int 

Thr  tyjxe  tnt  modelt  <a  range  of  thr  mathematical  integert  Thr  exact  range  it  not  part  of  the 
language  definition,  and  tan  vary  mmewhat  from  implementation  to  implementation  <tee 
Appendix  II  Section  M  Integer!  are  immutable  and  are  written  at  a  tequence  of  one  or  more 
dec  imal  dig  it  t  The  binary  oper  at  torn  add  <  * '.  luf  <  ->.  na/  <»>.  die  </).  *u>f  (//l.  and  power  <•  •)  are 
provided  at  well  at  unary  mnui  *  '  There  are  binary  companion  operation!  It  f«l.  le  (<»l,  equal 
( ftt  (  ..I  and  gf  <  In  addition  there  are  two  operation!,  from  ro  and  from,  tc  by.  for  iterating 
over  a  tequence  of  integer t  for  example  cine  tan  iterate  over  the  odd  numberi  between  I  and  100 

with 

foe  i  Inf  In  tntVrom  to  by<l  100.  7’  do  (onpute  *nd 

7.4  Real 

The  tyjxe  real  mcvlelt  <a  tubtet  of  the  mathematical  real  numbert  The  exact  tubtet  It  not 
part  of  the  language  defini’ion  although  certain  convtraintt  are  impoved  (tee  Appendix  II. 
Section  4'  Pealt  are  immutable  and  are  written  at  a  naafliu  with  an  (optional!  exponent  A 
mantitta  it  either  a  tequen  e  of  one  or  more  decimal  digitt,  or  two  tequencet  (one  of  which  may  be 
empty'  joined  by  a  period  The  mantitva  mutt  contain  at  leatt  one  digit  An  exponent  it  ‘F  Of  e. 
optionally  followed  by  or  '  '  followed  by  one  or  more  decimal  digitt  An  exponent  it  required  if 
the  mantitta  cloet  not  contain  a  period  At  it  utual.  n F.x  -  n»10*  Fxamplet  of  real  literal!  are 
?H  1HF0  i|4e-7  fr»MF-2  4  M 
At  with  inlegert.  the  ojxer  a'lom  add  f •  I.  tub  •  "i u!  (•'  dir  </'  ”iod  (//),  potter  fat),  m/nui  f-l. 
It  f«),  le  («•’.  equal  <•'.  gr  (»♦>.  and  gr  (>l,  are  provided  It  it  important  to  note  that  there  tt  no 
form  of  iwtf’i.i/  rnovertion  between  typet  So  for  example  the  vanout  binary  operatort  cannot 
have  one  integer  and  one  real  argument  The  1'r  operation  convert!  an  integer  to  a  real.  r2t 
round*  a  real  to  an  integer,  and  r»u»tr  truncate!  a  real  to  an  integer 


i 
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7.B  Chur 


I  hr  type  char  providrt  ihr  alphabet  lor  lr»l  rnanipulat ion  (  haractrii  are  immutililf,  and 

form  an  ordered  ter  ftrry  implementation  moil  pioridr  at  Iran  |?8.  but  no  more  than  512. 

char ai  irr t  tier  foil  |?8  chary  tree  arr  thr  A‘.(  tl  characlrn  in  thru  itandard  ordrr 

Printing  A  SC  II  ihara<  'rti  i«-al  CO  ihu  octal  IThi.  othrr  than  nnglr  quote  or  baeVsIath,  can  be 

written  ac  that  characrr  rr>t  lore  !  in  tingle  qmxrt  Any  charactrr  can  hr  wrillrn  by  mckiting  onr 

of  Ihr  following  ruafrr  sequent  rt  in  tin,  le  quotes 

ruaj»r  trtjurncr  chara 

V  (single  quote) 

\*  ’  (douhlr  quire' 

\\  \  ibadilath) 

\n  Nl  (newline* 

\t  H  f  'horizontal  fat'* 

\p  If  (formfeed  newpage' 

\b  RS  (backspace) 

\r  (  P  (carnage  return' 

\  v  V  T  t  vrrti'  al  tab’ 

\oi  specified  by  rural  yahir  <rsactly  (hrrr  octal  digits) 

Thr  n  apr  ir  |nro  re  nn  f>r  writ'cm  nun,-  upper  cavr  Ir'rrti  1  samples  of  charartrr  liirrali  are 
T  a'  -  A”  A'  A  R'  M7T 
T  hrrr  a’r  'wo  opera!  writ  i  and  .  .V  for  convening  between  integers  and  charatfrri  the 
cmallrcr  ha-a  'rr  <nrrrv|yondt  to  ;r ro  and  ihr  characfrrt  arr  numbered  sequentially  Binary 
ci mp  »•  iw>*i  oy>rra!ioni  raur  f  nr  c  harai  trr t  based  on  thu  numerical  ordering  It  I  *  I.  If  *  •  •  ),  equal  ( -), 
ft  i  •»*.  and  (1  <  »> 

7.6  String 

Thr  type  string  it  used  for  representing  try!  A  string  u  an  immcitahlr  sequence  of  rrro  or 
more  thara  'e'i  Strings  arr  lexicographically  ordered,  hated  on  thr  ordering  for  charartrri  A 
tiring  it  wrKtrn  at  a  seqcirnc  r  n  f  rrro  err  more  character  representations.  rnrlntrd  in  double  quotes 
Within  a  ti'ing  Irrral  a  printing  ASCII  character  other  than  double  quote  or  backslash  Is 
represented  hy  Kerb  Any  rbarar'er  tan  be  rrprrtmted  by  citing  the  euape  trqurrvrt  lilted  above 


F.umplft  of  llring  lireralt  are 

"ltrm\ tC otl*  ‘akmnde  (\mil  .  W(dT* 


*7  6 


r  |  - 

26  Sir  10^ 

7  hr  characteri  of  j  wring  arr  indexed  trcjurntially  tuning  (tom  one.  and  there  are  a  number 
of  Opera!  toot  (ha!  deal  with  (hete  indrxrt  fttik,  >ubitr.  rt  if.  indftt,  and  index  I  The  //fcA 
operation  it  uted  to  obtain  a  character  by  index  Invocation!  of  ftlih  can  be  written  uting  a  tpecial 
tyntax  (fully  detcribed  in  Setnon  lOM* 

till  t  get  the  character  at  index  t  of  t 

5uf*ifr  returnt  a  tiring  given  a  ttrmg.  a  tuning  index  and  a  length 
atrlngl'ubttr("abcde*.  2.  -  *bcd* 

Rut.  given  a  tiring  and  a  tuning  mdrx,  returnt  the  rrvt  of  the  tiring 
strlngSrriti'abcde*  V  -  "cde" 

/ndexc  computet  the  leatt  index  at  which  a  character  occur!  in  a  tiring,  and  Indexi  dart  the  tame 

for  a  ttrmg  the  remit  it  re ro  if  the  character  or  ttrmg  doet  not  occur 

strings indexc('d'.  'abcde*1  •  t 
stringjindextl'cd".  ’abedr“>  -  S 
sfrlngSindrxt'*ab<dr*  *cd*>  -0 

Twu  ttringt  can  be  conca’enated  together  with  cencat  (l>,  and  a  tingle  character  can  be 
appended  to  thr  end  of  a  wring  with  append  Note  that  sfrtnglconcad’abc'’.  *de“)  and 
alrlng\append<*abcd'.  'e*1  produce  the  ja-ie  wring  at  writing  'abcde'  (2 1  convert!  a  character  to 
a  tingle  character  wring  1  he  tire  of  a  wring  can  be  determined  with  me  (  Kari  iterate!  over  tbe 
character!  of  a  ttrmg.  from  the  firw  to  the  law  character  There  are  alto  the  utual  lexicographic 
compart  ton  oper  ationt  It  <  «>.  It  <**'.  tqual  <•>.  (c  (>•',  and  {T  <  >' 

7.7  Any 

A  type  cpe*  if  k aucm  it  uted  to  rewuct  the  c'att  of  objrctt  that  a  variable  can  denote,  a 
procedure  nr  ireratnr  can  take  at  a'gtimentt  a  procedure  can  return,  etc  There  are  timet  when  no 
rettrictiom  ate  detired  when  any  nbyrt  it  acceptable  At  tuch  timet,  the  type  tpecif nation  any  it 
uted  For  example  one  might  with  to  implement  a  table  mapping  Wring!  to  arbitrary  objrctt,  with 
the  intention  that  different  wringt  could  map  to  objrctt  of  different  typet  Tbe  lookup  operation, 
uted  to  ger  rbe  object  corretponding  ro  a  wring  would  have  itt  remit  declared  to  be  of  type  any 

7  be  type  any  it  tbe  umc*t  of  all  potublr  typet.  and  it  it  the  only  true  union  type  in  CLU.  all 
ocher  typet  are  Mi t  tyjvet  Fvery  object  it  of  type  any  at  well  at  being  of  tome  bate  type  The 
type  any  hat  no  operation!,  however  the  hate  type  of  an  ohjrtt  can  be  tewed  at  run-time  (tee 
I  Section  10  I  It 
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7.8  Array  Types 

At  rays  ire  one  dimensional  and  ire  mutible  Arrays  ire  unconventional  because  the  number 
o(  elements  in  in  irny  tin  viry  tlynimitilly  Furthermore.  there  it  no  notion  of  in  untmtiillied 

element 

The  ifjrr  of  in  irny  consists  of  in  integer  tilled  the  lew  bound,  ind  i  sequence  of  objects 
tilled  the  rlrntnli  The  eletneriis  of  in  irriy  ire  indexed  lequentully.  starting  from  the  low 
bound  All  of  rhe  elements  must  !*•  of  the  ume  type,  this  type  It  specified  in  the  array  type 
sjsec  if  it  ition  which  his  the  form 
array  (  tyjse  spec  ) 

Examples  of  irny  type  sjser  if  it  itions  ire 
arrayf  Int! 

array)  array*’  string)) 

I  here  ire  i  number  of  »»ys  to  tiei'r  1  new  irny  of  which  only  two  are  mentioned  here. 
The  ’raft  («peritit<n  'ikes  in  argument  sallying  the  low  bound,  and  creates  a  new  array  with 
thit  low  bound  and  no  elements  An  irny  constructor  tin  be  used  to  create  an  array  with  an 
arbitrary  nuosber  of  initial  elements  Tor  eumple. 

array!  inti  $  t I  ?  1  I) 

creates  in  in'e,;e-  irns  wi'h  low  hound  •>  ind  four  rlrmenls  while 
array!  boof  1  !  true  false) 

c reires  i  boolean  im>  wnh  low  bound  I  ''he  default*,  and  tw*o  elements  Array  constructors  are 
discussed  fully  in  Section  I  A  I 

An  irr i *  tyj>e  spe* if n ition  s'i'es  nothing  about  the  fsounds  of  an  array  This  is  because 
arrays  tin  g'ow  an  f  shrink  riimni  ills  d.M*  adds  an  additional  element  to  the  end  of  the  array, 
with  mdes  one  greater  thin  the  previous  b't  element  d<fd/  adds  an  additional  element  to  the 
beginning  of  the  a'tay.  and  derremen's  'he  low  bound  hy  one  so  that  the  new  first  element  has  an 
index  one  less  rhin  the  previous  first  efemen'  /fr"i*  removes  ihe  last  element,  trml  removes  Ihe 
first  elersen'  and  int  rersents  the  low  hound  Neve  that  all  of  these  operations  preserve  the  indexes 
of  the  ocher  efemen'i  Also  neve  that  these  ojserations  do  nor  create  holes,  they  merely  add  to  or 
remove  from  the  rndi  of  the  array 

As  an  e<  ample  if  a  re«"i4  were  performed  on  (he  integer  array 
array!  Int)  ITS  I,  ?  1  d) 

the  element  d  would  disappear,  and  the  new  Iasi  element  wosild  he  d.  still  with  index  7  If  a  0  were 
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added  uving  citf.f/.  I!  woukl  become  the  new  f ir\(  element.  with  index  1 

The  fet i*  operation  extract*  an  element  by  index,  and  the  iteu  operation  replace*  m  element 

by  index.  an  index  it  il^-al  ,f  no  element  with  that  index  exi*t*  Invocation*  of  thete  operation* 

tin  be  written  ming  ipecial  form*  (covered  (utly  in  Section*  10  A  I  and  ll?l> 

all)  X  (etch  the  element  at  index  i  of  a 

all)  -  A  X  note  1  at  index  i  of  a  <no(  really  aiiignment' 

The  ie>f>  and  (x.Vfp»i  ojteration*  return  the  element  with  the  higheit  and  kiweit  index, 
reipextively  T  he  Ai (A  and  lea/  operation*  return  the  higher!  and  k>we*t  indexe*.  revpeclively  The 
e/e*nenr i  iterator  yield*  the  element*  from  bottom  to  top  and  the  wiitxn  iterator  yield*  the  indexe* 
from  km  tc*  high  T  here  i*  alto  a  ute  oyieration  that  return*  the  number  of  element* 

Every  newly  created  array  ha*  an  identity  that  i*  d  nr  me  t  (torn  all  other  array*,  two  array*  can 
have  the  *ame  element*  without  being  the  tame  array  object  The  identity  of  array*  can  be 
diitingtiiched  with  the  t^ual  <•>  <>j»efatioo  The  itm.'a’l  operation  lew*  if  two  array*  have  the 
lame  *tate  iiung  the  e^uj/  ojieration  o(  the  element  type  Simla*  teit*  if  two  array*  have  ilmitar 
Hate*  uling  the  imi/jr  operation  of  the  element  type  For  example  writing 
aitM  I  2.  7) 

(where  'ai*  n  equated  to  array!  Inf)'  in  different  place*  produce*  array*  that  are  umtlarl  and 
umilar  'but  noi  equal'  while  the  fnlkiwmg  produce*  array*  that  are  umilar.  but  not  umtlarl  (or 
equal' 

aeeaylailiu  aitcrealrM'l 

7.8  Sequence  Types 

Sequence*  are  immutable  arran  Although  an  individual  lequence  can  have  any  length,  that 
length  cannot  vary  dynamic  c .n  and  the  rlemen-i  of  the  lequence  cannot  be  replaced  The  element* 
of  a  vequence  are  indexed  tequentially.  darting  from  one  A  vequence  type  xpecif  teat  ion  ha*  the 
form 

sequence  1  type  vper  1 

The  new  operation  return*  an  empty  eequener  A  vequence  comtructor.  which  it  »yntartKally 
timilar  to  the  array  comtrurtor.  can  he  u*ed  to  create  a  cequrnce  with  an  arbitrary  number  of 
element*  Sequence  comtructor*  are  dittutted  fully  in  Section  106? 
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Allhough  a  sequent r  oner  created.  cannot  be  changed.  new  ifqufmo  (in  be  constructed  from 
fx ixfxrx  4,f,fA  i  nr*  vrijuffiif  with  in  additional  flmifni  it  the  fnd  (with  index  oo^ 

greater  thin  the  last  element  of  the  old  srquentel  Add!  creates  i  new  sequence  with  in  additional 
element  it  the  beginning.  with  index  one  so  thit  every  other  element  has  an  index  one  greater 

thin  its  index  in  the  old  sequence  RrmK  creates  a  new  sequence  with  the  lilt  element  removed; 

ii"i/  creates  i  new  sequernr  with  the  first  elerrxent  removed  Note  that,  for  each  of  these  operation!, 
element  csbjrcts  ire  shired  br'wrrn  the  old  ind  new  sequences 

I  he  ft r,  A  operation  estrads  an  element  hy  index  ind  the  rtplact  operation  create!  a  new 
sequent e  with  a  new  elerrxent  it  i  given  index,  in  index  i!  illegal  if  no  element  with  that  Index 

exivtt  In  vexation!  of  the  hu4  oyxetition  tin  he  written  using  a  special  form  (covered  fully  in 

Section  |n*>  |« 

q(  |)  \  fetch  the  element  at  index  l  of  q 

The  f.'g  md  f>or,V t  operations  return  the  element  with  the  highest  and  lowest  index, 
rexpex’ivrly  I  he  u:e  operation  terurns  the  number  of  element!  The  rltm/nts  iterator  yields  the 
elements  f  risers  bottexm  to  tixp  and  the  itifnrt  iterator  yields  the  indexes  in  increasing  order,  starting 
f  rrsm  rsrse  T  wo  sequences  ran  he  cesm  atenated  tc^ether  with  (If*  to  produce  a  new  sequence, 

and  hiM ty  extract!  a  subsequence  of  a  sequence 

T  wes  sequences  wi'h  the  same  elements  are  the  same  sequence  T  he  ryuo/  (•*  operation  test!  If 
two  sequences  have  'he  same  elersents,  using  the  ryuat  operation  of  the  element  type  Similar  test! 
if  twes  sequences  have  similar  elements,  using  the  similar  operation  of  the  element  type  For 
example  writing 

sequence*  erreyf  Intl't  err*/  Int'lllll 
in  diffe»en'  places  produces  sequences  that  a’e  similar  hu’  not  equal 

7.10  Record  Type** 

A  reresrd  is  a  mutable  exile  'inn  of  ncs e  csr  mote  named  objrcts  The  names  are  called  je/ecfwj, 
and  the  nh  r  t\  are  ailed  —  Ihffe-ent  ccsmponenti  may  have  different  types  A  record 

type  specif  icjttnn  has  the  form 

record  f  field  spec  .  ) 

where 

field  spec  x  name....  type  spec 

‘.electors  must  he  unique  within  a  qsecifKation  hut  the  ordering  and  grouping  of  selectors  It 
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unimportant  For  example,  all  the  of  the  following  name  the  same  type 

recordlaxt  first,  middle  tiring  age  int) 
record  f  it  it.  middle,  lavt  tiring,  age  inti 
record  la U  tiring,  age  Int  f  it vt.  middle  tiring) 

A  record  is  created  using  a  record  constructor  For  example 
info  $  [last  'Jones'.  first  ‘John*,  age  J2.  middle  *J  *) 

(assuming  that  "info"  has  t>een  equated  to  one  of  the  above  type  spec if icatiom,  see  Section  8  An 
expression  must  l>e  given  for  each  selector.  hut  the  otdet  and  grouping  of  selectors  need  not 
resemble  the  cort ecpcmding  type  specif nation  Record  constructors  tte  discussed  fully  in 
Section  10  f  1 

Fot  ea<h  selector  'cel*  there  is  an  ojreration  gtl  cel  to  extract  the  named  component,  and  an 
operation  ref  cel  to  replace  the  named  comfKcnent  with  come  other  object  For  example,  there  are 
get  and  irf  miiiiilt  operationc  for  the  r > |»e  cj>ecilied  above  Invocationc  of  theve  operations 

can  be  written  in  a  <pev  lal  form  tdiuucced  f  ully  in  Sec  none  10  S  ?  and  II  2  2* 
r  middle  \  get  the  ’middle’  component  of  r 

r  age  -  Vt  t  set  the  age’  component  of  r  to  SJ  (not  really  alignment) 

Ac  with  arrays  every  newly  created  record  hai  an  identity  that  It  distinct  from  all  other 
records,  two  records  can  have  the  same  components  without  being  the  same  record  object  The 
identity  of  records  can  be  distinguished  with  the  rqual  <•>  operation  The  umtlatl  operation  tests 
if  two  records  have  the  same  components,  using  the  tqual  operations  of  the  component  types 
Similar  tests  if  two  records  have  similar  components,  using  the  umiltr  operations  of  the  component 
types 

7.11  Structure  Types 

A  structure  is  an  immutable  record  A  structure  type  specification  has  the  form 
atruct  f  f leM  spec  .  ...  J 
where  <as  for  records* 

field  spec  name . type  spec 

A  structure  is  created  using  a  structure  constructor,  which  syntactically  Is  identical  to  a  record 
constructor  Structure  constructors  are  discussed  fully  in  Section  10 f»  4 

For  each  selector  "xel\  there  is  an  operation  grt  set  to  extract  the  named  component,  and  an 
operation  frphuf  sel  to  create  a  new  structure  with  the  named  component  replaced  with  some  other 
object  Invocations  of  the  get  operations  can  be  written  in  a  special  form  (discussed  fully  in 
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Section  10  S?) 

»t  ieklom  \  get  the  seldom'  component  ol  M 

Ai  with  u^timri  two  ittucturei  with  the  lame  (<>m|K>nrnti  are  in  f act  the  utw  object  The 
tyual  <-»  ojxeration  trui  if  two  itruuurri  have  thr  ume  component*.  uung  the  tqual  operation*  of 
the  (omjwmrnt  typei  Similar  teiti  if  two  itructutri  have  umilar  component*.  uting  thr  simitar 
opet attorn  of  (hr  component  tyjiei 

7.12  Oneof  Types 

A  oneof  tyjw  i(  a  lagged  Hiuuminaltii  unifn  A  oorof  ti  an  immutable  labeled  objrcl.  to  be 
thought  of  ai  "one  of’ a  set  of  altrmativri  The  label  u  called  the  lag.  and  the  object  It  called  the 
ixi/ur  A  oorof  type  ipec  if  nation  hat  thr  form 
oneof  (  f teki  q»ec  ...  ) 
where  tat  for  recordi' 

f trkl  iprr  s  name  .  ...  tyjre  (pec 

Tags  mint  he  unique  within  a  ipecif  nation  but  the  ordering  and  grouping  of  tagi  u  unimportant 

At  an  example  of  a  oorof  type  thr  rrprrirntation  tyjxe  for  an  immutable  linked  hit  of  integer*. 

int  hit.  might  be  written 

oneoff empty  null 

pair  atructfryr  mt  (dr  in:  livtll 

At  another  example  the  inotenti  of  a  "number  container  might  be  ipecif  led  by 

oneofl  empty  null 

integer  Int. 

real  num  real 

complex  num  complex  1 

For  ra(  h  tag  V  of  a  oneof  type  there  n  a  "take  t  operation  which  laket  an  object  of  the  type 
a*wxiated  with  the  tap,  and  re’mni  the  object  'ai  a  oneof'  labeled  with  tag  V  For  example, 
numbertmakr  real  num'l  tTi 

f reatei  a  one of  object  with  tag  "teal  num*  taiiuming  'numlxer*  hai  been  equated  to  the  "number 
container'  type  ipr<  if  icatlon  above,  ire  Section  Alt 

The  fjual  (->  operation  rent  if  two  oneofi  have  the  wme  tag.  and  if  *o.  teiti  if  the  two  value 
componenti  are  the  tame  uung  thr  eqtao/  operation  of  the  value  type  Simitar  teiti  if  two  oneofl 
have  the  lame  tag.  and  if  io.  teiti  if  the  two  value  component!  are  iimtlar.  uiing  the  simitar 
operation  of  the  value  type 
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To  determine  the  tag  and  value  of  a  oneot  object.  oof  normally  utet  the  tagcaa*  statement, 
discussed  in  Section  116 

7.13  Variant  Types 

A  varum  n  a  mulihlf  oneof  A  varum  type  specifKation  hat  the  form 
variant  {  field  tgiec  .  ...  1 
where  <at  for  rnordt' 

f  if H  sgvec  s  namf  .  ...  type  vjxc 

Thf  ’'air  of  a  variant  it  a  pair  consisting  of  a  lal>el  called  thf  lag  and  an  object  called  the  pa/ur 
For  eaih  tag  V  of  a  variani  tyjw  thfrr  it  a  »w:kc  I  operation  which  talet  an  object  of  the  type 
atiocuted  with  rhf  rag.  and  rrturm  rbe  object  'at  a  variant'  labeled  with  lag  I  In  addition,  thfff 
it  a  lAiingr  t  operation  which  takes  an  existing  va'iant  and  an  object  of  Ihf  lypf  associated  with 
‘l*  and  changft  Ihf  traif  of  Ihf  variant  to  f»r  Ihr  pair  tontitling  of  ihf  lag  I  and  Ihf  given 
object 

Lvfry  newly  created  variant  hat  an  identity  that  it  dutimt  from  all  other  vananlt.  two 
varianti  can  have  ihf  same  traif  without  being  thr  same  variant  objrct  Thf  identity  of  varianti 
can  be  distinguished  titing  ihf  f^ual  *•'  ojvecat inn  The  j/m/jrf  opfraiion  Iftit  if  two  variants 
have  thf  came  lag  and  if  to  lectc  if  the  two  vihie  componenlt  are  equal,  filing  the  tqual  operation 
of  the  value  type  Si"ii /at  letic  if  two  varianti  have  the  came  tag.  and  if  to.  testt  if  the  twro  value 
componenlt  are  simitar  uung  the  n^ffar  operation  of  the  value  type 

To  determine  the  lag  and  value  of  a  variant  objrct.  one  normally  utet  the  tagcaaa  uaiement. 
as  diKUtced  in  Section  116 

7.14  Procedure  and  Iterator  Types 

Procedures  and  neraiort  are  nbycts  created  by  the  fill  tyttem  <tee  Section  J  1>  The  type 
specifKation  for  a  procedure  or  iterator  contains  most  of  the  information  Mated  in  a  procedure  or 
Iterator  heading,  a  procedure  type  ipecification  hat  the  form 
proctype  <  [  type  spec  ....]>[  returnt  ]  [  signals  ] 
and  an  iterator  type  specifKation  has  the  form 

Itartypa  l  [  type  spec  .  ...  ]  >  [  yields  ]  [  signals  ] 


where 
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returns  return*  <  type  spec  .  ...  > 

yields  :  s  yields  <  type  sfwc  .  ...  I 

signals  :  s  signals  i  exception  .  ...  I 

exception  :  njmr  J  I  lype  spec  .  ...  )  J 

I  hr  first  list  ol  type  sf»ec  it  tea  Irons  describes  (hr  number.  lyj>es  and  order  of  arguments  The 

returns  or  yields  clause  gives  the  number,  types,  and  order  of  the  objects  to  be  returned  or 

yielded  I  hr  signals  danse  lists  the  exceptions  raised  by  the  procedure  or  iterator,  for  each 

exception  name  the  number  tyjres  arvl  orde'  of  the  objrcts  lobe  returned  is  also  given  All  names 

used  in  a  signals  clause  must  be  unique  and  cannot  be  failutf.  which  has  a  standard  meaning  in 

till  <  see  Sec 'ion  I I  I  he  of  frr  in,  cit  exceptions  is  not  important  For  example,  both  of  the 

follow  in,  t  y  pe  vpe  it  i  a' ions  name  the  proc edure  type  f or  stringtsubstr 

proctype  string  int  Int  returns  '  string'  signals  'bounds,  negative  stre> 
proctype  string  int  int  returns  string'  signals 'negative  sue.  bounds' 

StrtngVhirs  has  the  follow  in,-  iteralor  tyf>e 

Itertype  1  string  yields 'char 

Proc  e-lu’e  and  re’  a 'or  '  t  pec  h  i  s  e  an  1  - 1  oj>er  a  l  ion  In  vot  alion  is  lot  an  opera!  ion,  but  a 

primitive  ac'ion  of  (III  ser-santi  s  ‘see  Section  9'" 

7.16  Other  Type  Specifications 

The  type  spec  if  »c  atlon  fot  a  user  defined  type  has  the  form 
tdn  [  (  cons- ant  I  ] 

where  each  .  t  f  j  **  f  mtis'  be  computable  a'  compile  time  'see  Section  H  ft  The  identifier  must  be 
bound  to  a  rla'a  abstra'tmn  see  Sections'  If  the  referenced  abstraction  is  parameter  I  led. 
fons’ams  of  the  appropriate  types  and  nunhe’  musl  be  supplied  The  order  of  parameters  always 
mane rs  m  user  de'ined  types 

Then  are  three  sjwxial  ryj>e  specif  ic  a'lons  that  are  used  when  implementing  new  abstractions 
rep  cvt  and  type  These  forms  are  discussed  m  Sections  |tt  and  I' t  Within  an 
implemen'ation  of  an  abstraction  fcvmal  parame*eca  declared  with  typa  can  he  used  as  type 
spec  if  •<  atinns 

In  addition  identifiers  which  have  been  equa’ed  fo  type  specifications  can  also  be  used  as  type 


sj>ec  if  it  a 'inns  Fqsia'es  are  discussed  in  Set  non  R  t 
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8.  Scopes,  Declarations,  and  Equates 

We  no1*  describe  how  to  introduce  and  use  constants  and  variable*,  and  the  scope  of  constant 
and  variable  names  Scoping  units  are  described  first,  followed  by  a  discussion  of  variables,  and 
f  inally  constants 

8.1  Scoping  Units 

Scoping  units  follow  the  nesting  structure  of  statements  Generally,  a  scoping  unit  is  a  body 
and  an  associated  'heading*  !  he  scoping  units  are  <refer  also  to  Appendi*  |) 

I  From  the  start  of  a  «i cvfu/c  to  its  end 
?  (ropi  i  cluster  proc  or  iter  to  the  matching  end 
1  From  a  for  do  or  begin  to  the  matching  end 

f  From  a  then  or  else  in  an  If  statement  to  the  end  of  the  corresponding 
body 

*>  From  a  tag  or  others  in  a  tagcase  statement  to  the  end  of  the 

corresjmnding  Ivody 

ft  From  a  when  or  others  in  an  except  statement  to  the  end  of  the 
j  corretgiondrrrg  beefy 

7  From  the  start  of  a  tyf*  irt  to  its  end 

The  last  case  above  the  s  .ij>e  in  a  tvpe  set  is  a  special  case  that  will  he  discussed  in  Section  I?  1 
Whatever  we  say  at>osit  scopes  m  the  remainder  of  this  section  refers  only  to  cases  I  through  6 

The  structure  of  scoping  units  is  s-»-  h  'hat  if  one  scoping  unit  overlaps  another  scoping  unit 
Iteatually*,  then  one  it  fully  contained  in  the  other  The  contained  scope  is  called  a  nrttfd  scope, 
and  the  containing  terete  it  called  a  iurrpi.»i<fin(  scope 

Ne>»  constant  and  variable  names  mi*  he  introduced  in  a  scoping  unit  Names  for  constants 
are  in'rrvlii'  ed  by  equates  which  a'f  syntactic  ally  restricted  to  appear  grouped  together  at  or  near 
the  beginning  of  scoping  units  For  evample  equates  mar  appear  at  the  beginning  of  a  body,  but 
n<*  after  any  statements  in  the  body 

In  enntrast  declarations  which  introduce  new  variables  are  allowed  wherever  statements  are 
allowed  anil  hence  may  apjwar  throughout  a  unping  unit  Fquates  and  declarations  are  discussed 
in  more  derail  in  the  following  two  sections 
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In  i hr  syntax  there  are  two  distinct  nonterminals  for  tdmtifirrs  tdn  and  n<i"ir  Any  identifier 
introduced  by  an  esjiure  or  declaration  is  an  ofn,  as  is  the  name  of  the  module  being  defined,  and 
any  operations  it  has  An  nfn  names  a  sjtecific  type  or  object  The  other  kind  of  identifier  Is  a 
HUTr  A  n.:"re  is  used  to  refer  to  a  subpiece  of  something.  and  is  always  used  in  context,  for 
example,  n i j e i  are  used  as  record  selectors  The  scope  rules  apply  only  to  iHm 
T  hr  scope  rules  are  very  simple 

1  An  idn  may  not  be  redefined  in  its  scojre 

2  Any  idn  that  is  used  as  an  exrernal  reference  in  a  module  may  not  be 
used  for  any  other  purpose  in  that  module 

Unlike  other  "block  structured"  languages  (  IU  prohibits  the  redrf mition  of  an  identifier  in  a 
nested  scope  An  identifier  use-1  as  an  external  reference  names  a  module  or  constant,  the  reference 
is  resolse-f  using  the  compilation  environment  'see  Section 

8.2  Variables 

(  H>  jr-  -s  are  the  f  und amen’a I  "things"  in  the  Cl  U  universe,  variables  are  a  mechanism  for 
denoting  ie  naming  obir  -s  1  his  underlying  model  is  discussed  in  detail  in  Section  J  A 
variable  has  two  properties  its  type  and  the  object  that  it  currently  denotes  <lf  any!  A  variable  It 
said  to  be  untnthalued  if  i»  does  not  denote  any  object 

T  he-e  a-e  only  three  -hings  ’hat  can  he  done  with  variables 

1  New  v  ar  tables  an  he  introduced  I)ec  larations  |>erform  this  function 
and  a-e  described  below 

2  An  i>b  je  -  may  be  assigned  to  a  variable  After  an  assignment  the 
variable  denotes  -he  oh  jn  •  assigned  Assignment  is  discussed  in 

Sec  t  ton  9  2 

x  A  variable  may  he  need  at  an  expression  The  value  of  such  an 
expression  u  rhe  result  of  evaluating  it >  is  the  object  that  the 
variable  denotes  at  the  time  rj,r  expression  is  evaluated  Expressions 
and  th»ir  evaluation  are  described  in  Section  1(1 

R.2.1  Dnclnrntlonx; 

fkec  larations  introduce  new  variables  The  scope  of  a  variable  Is  from  its  declaration  to  the 
end  of  the  smaller’  scoping  unit  containing  its  declaration  hence,  variables  must  be  declared  before 


use 


Des  larations 


S»  2  1 


There  are  two  sorts  of  declarations  those  with  initialization.  and  those  without  Simple 
declarations  (those  without  initialization)  lake  the  form 
dec  I  ::a  idn  .  ...  (ype.spec 

A  simple  declaration  introduces  a  livt  of  variables,  all  having  the  type  given  by  the  type^spec  Thu 
type  determines  the  types  of  objects  that  tan  be  assigned  to  the  variable  Some  examples  of  simple 


declarators  are 


i.  j.  k  char 
x.  y  complex 
Z  any 


%  declare  i  to  be  an  integer  variable 
t  detlare  i.  j.  and  1  to  be  character  variables 
\  declare  x  and  y  to  be  of  type  complex 
\  declare  z  to  be  of  type  any.  thus,  z  may  denote  any  object 


The  variables  introduced  in  a  simple  declaration  initially  denote  no  objects,  if.  they  are 
uninitialized  Attempts  to  use  uninitialized  variables  < if  not  detected  at  compile  time1  cause  the 
run  time  exception 

f  ailure<*uninitialired  variable") 
f  Fxceptions  are  discussed  in  Section  I?  > 

8.2.2  Declarations  with  Initialization 

A  declaration  with  initialization  combines  declarations  and  assignments  into  a  single  statement 
A  declaration  with  initialization  is  entirely  equivalent  to  one  or  more  simple  declarations  followed 
by  an  assignment  statement  The  two  forms  of  declaration  with  initialization  are 
idn  type  spec  -  expression 

and 

decl.  ...  dec  I  -  invocation 
I  n 

The\r  *rr  rrjmvjlent  to  vrly> 

idn  type  spec 
idn  -  expression 


derfj  ...  decln  t  declaring  tdnj  ...  tdnj^ 

idntl  ....  idn„  -  invocation 
I  m 

In  the  second  form,  the  order  of  the  idns  in  the  assignment  statement  is  the  same  as  in  the  original 
declaration  with  initialization  (The  invocation  must  return  n  objects,  see  Section  9  2  2) 
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Some  examples  of  declarations  with  inittalizaiion  are 

•  sir  array'  string)  -  array)  stringllc iratr<  1* 

\  declare  asir  to  hr  an  array  variable  and  initialize  it  to  an  empty  array 

lint,  la vr  string  balance  int  -  acctlquerytacct  no' 

X  declare  tint  and  la vt  to  he  string  variables,  balance  an  integer  variable. 

\  and  initialize  them  to  the  rr  ,ults  o(  a  bank,  account  query 

T  he  above  two  s'atements  ate  equivalent  to  the  following  sequences  of  statements 

astr  array1  string) 

astr  -  array!  strlng'Jcrere  li 

first  last  string 
balance  Int 

first  last,  balance  •  a  cttquery'acct  no1 

R.3  Equates  and  Constants 

An  equate  allows  a  single  identi! ier  to  be  use-)  av  an  abbreviation  for  a  constant  that  may  have 
a  lengthy  textual  representation  We  use  the  term  cons'ant  in  a  very  narrow  sense  here  constants, 
in  addition  to  being  immutable  must  be  computable  at  compile  time  Constants  are  either  types 
'built  in  or  use*  defined*  or  objr's  that  are  ihe  results  of  evaluating  constant  expressions. 
<(  constant  expressions  are  del  ined  below  > 

7  he  syntax  nf  equates  is 

equate  s  idn  -  constant 

|  idn  •  lype  set 

constant  s  type  spec 

|  eapresuon 

This  se*’inn  describes  only  the  first  form  nf  equate,  discussion  of  type  vets  is  deferred  to 
Section  P  4 

An  equate- )  (drnrpier  may  be  liter)  ai  an  expression  The  value  of  such  an  expression  is  the 
constant  tn  whi  h  'he  identtfie*  is  equated  An  equated  identifier  may  not  be  used  as  ihe  target  of 
an  assignment 

7  he  scope  of  an  rqoa'rd  rdenlifier  is  the  smallest  scoping  unil  surrounding  the  equate  defining 

it  he-r  w e  mean  the  entire  doping  unit  not  gist  the  portion  after  the  equate  All  the  equates  In  a 

scoping  unit  must  appear  near  the  beginning  of  the  scoping  unit  The  exact  placement  of  equates 
depends  nn  the  containing  syn'actrc  construct,  usually  equate*  appear  at  the  beginnings  of  bodies 


I  quate*  ami  C  mutant* 


IS 


l  quate*  may  l»e  in  any  older  within  ihr  group  Thu*.  forward  reference*  among  equate*  in 
(hr  umr  doping  uni!  are  allowed  l>u(  *y*lic  drjrendencie*  air  illegal  fot  example. 

*  -  y 
y  *  1 
i  -  s 

II  a  legal  vequence  of  equate*  but 

»  -  y 

y  *  1 

i  -  * 

it  not  Sim  r  rqiia'r*  tntroclmr  i  In*  'hr  *<  oping  rrttriclion*  on  idm  apply  *ir  ^  idm  may  nol  hr 
clef mrd  moir  (ban  ('tier1 

8.3.1  A bbreviatlons  for  Types 

Idmul  irri  nny  1*e  pqtia'rd  to  lvj>e  *pe<  if  ication*  thu*  giving  abbreviation!  for  type  namrv 
For  example 

at  *  iirrxyl  inti 

cvt  -  oneot  !hrr  rt.  none  null 
rt  -  rrcord  i  fon  b  bat) 

pt  -  proc  type  int  mb  rrturn*<ln1  *ign«l»  (over  I  kiwi 
i!  -  iter  type  Int  Int  Int  yield*  Int  iignal*  (bound*' 
l*ra<  l  *  *(ai  k(  Inti 
mt  -  mark  'ablr 

No'll  e  ifi  at  *in<r  equa’e*  may  not  ba  *  r  c  v  In  dependent  ir*  directly  recur  »ivr  I  ype  vpncif  nation* 
cannot  b*  written  However  (hi*  doe*  mv  prevent  (he  definition  of  re*ur*tve  type*  (kilter*  allow 
them  to  be  written  *ee  section  P> 

8.3.2  Constant  Expressions 

Here  we  define  the  *ub*e  of  obyr*  tha1  equated  identifier*  may  denote  by  Uatinft  which 
exprettyoni  are  rnni'.in!  e»pre* non*  l  xpreuion*  are  diunoed  in  detail  in  Section  |d  '  A  ci*Xlffl»if 
fxf"f meri  i*  an  expfe*tirm  that  can  be  evaluated  ai  compile  time  to  produce  an  immutable  object 
of  a  bulk  in  type  Specif irally  (hi*  include* 
l  Literal* 

7  Identifier*  equated  to  cnnttant* 
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(  umlaut  F  spmsium 


TO 


'  P'i*  nfure  ml  iterator  names  'see  Section  10  t>  including  forcer)  for 
any  tyjie  I 

4  Invitations  of  procedure  operations  of  (hr  built  in  comunt  ( yjx»i. 
provided  that  ill  operands  and  ill  mufti  are  constant  expressions 
However  »e  exphsilly  forbid  the  uvr  of  foimil  parameters  is  ofierands 
to  invcnatiuni  in  i  onujnt  repressions  since  the  values  of  formal 
parameters  ire  not  known  it  lump  lie  time 

5  Formal  parameters  (see  Nestion  P  4' 

For  completeness  the  list  of  the  built  in  constant  tijses  is  null,  lot.  real  bool  char,  tiring. 

seqiirni e  tyfws  orseof  types  structure  types  procedure  types,  and  iterator  types 

Some  e\  amples  tsl  equates  involving  repressions  are 

hash  rx«tuhis  -  .'•> 

pi  -  J  1 4 1 ’•‘TJfiS 

win  -  true 

tontrol  r  •  'NOOV 

prompt  string  *  ‘Input 

nl  *  string!  s'  An'1 

prompt  -  nl  It  prompt  string 

prompt  ten  -  string!  sire  prompt) 

quarter  *  pt  /  2 0 

t  lb  •  inti 1  ’om  to  by 

o<  -  oneof  ell  (ell  none  null) 

■ell  record 'sts'  semsl  soil 
nilptr  -  ivfrulr  none  nil 

Note  that  'he  following  equate  is  i  lie,  a  I  because  it  uses  a  resold  ronuruttor,  which  is  not  a  constant 
rs  presences 

tell  1  2  -  rvfnile  cell1  r  ellt )  f  ir  si  I  tes  ond  21) 

Any  invitation  in  a  constant  expression  must  terminate  normally,  a  program  is  illegal  If 
rvaltia’iort  of  any  (ons'anr  expression  would  signal  an  exception  (Exceptions  are  discussed  in 
Section  |;’  I  Illegal  programs  will  not  be  executed 


9.  Assignment  rand  Invocation 

I  wo  fun'lamen'al  a  'ions  of  fill  a’e  assignment  of  computed  objrits  to  variables,  and 
invrv  a'lon  o'  prrxrdurrs  and  i'e- rnrs1  in  (ompute  objects  Other  actions  are  composed  from  these 
two  by  using  various  rnnrrol  flnw  nsnhanisms  Since  the  correctness  of  assignments  and 
invorattnns  depends  on  a  'ype  che-lmg  rule  we  describe  that  lule  first,  then  assignment,  and 
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t  inally  invocation 

9.1  Type  Inclusion 

Cl  U  it  detigned  to  alkiw  compile  time  type  checking  The  type  of  each  variable  It  known  by 
thr  compiler  Furthermore  the  type  of  objrctt  that  could  mult  from  the  evaluation  of  any 
fcpifiiioo  *  invocation*  it  known  at  compile  note  Hence  rvrty  atugnrryrnt  can  be  checked  at 
compile  time  to  make  uire  that  the  variable  it  only  aliened  objrctt  of  ill  declared  type  1  be  rule 
it  that  an  atngnment  :•  -  /  it  legal  only  if  the  ter  erf  object!  defined  by  the  type  of  F  Oootely,  the 
ter  of  all  objrcty  that  cocikf  |>ottibly  remit  from  evaluating  the  rtprettion'  it  inchrded  in  the  ter  of 
all  objrctt  tbit  cook!  be  demrred  by  : 

Inttrid  c>f  tjreaking  ctf  (he  ter  of  objecti  defined  by  a  type  »r  generally  tjreak  of  the  type  and 
cay  that  the  type  of  the  ecprettion  mitt  t>e  inrfudtd  in  the  trpe  of  the  variable  If  it  were  nor  for 
the  tyj>e  any  the  im  Imion  rule  woukl  t>e  an  equality  rule  Thu  leadt  to  a  timple  interpreration  of 
the  type  intlticion  rule 

The  tyj>e  of  a  variable  being  attigned  an  reprrttion  muct  be  either  the  type  of  the 
e»pr return  cm  any 

9.2  A  R«5  nmenl 

Atttgnment  it  the  meant  of  auting  a  variable  to  denote  an  object  Some  aitignmentt  are 
Implicit  i  r  performed  at  part  of  the  rendition  of  vatiout  mechamemt  of  the  language  <mott 
notably  procedure  invocation  iterator  invocation  reception  handling,  and  the  tagcai*  uatrment' 
All  atttgnmenft  whether  implicit  or  eeplicit.  are  tiibpwt  to  the  type  inckiuon  rule  The  remainder 
of  thit  teetton  dltcutcet  explicit  atttgnmentt 

The  attignmenr  tymbol  *  -  *  it  uted  in  two  cvhrr  tyntactic  forme  that  are  not  true  aiugnmeryti. 
but  rather  abb'evia'iont  for  certain  invoationi  Thete  formt  are  uted  for  updating  coUectiom 
uach  at  recordt  and  arrayt  'tee  Section  II  ?> 

9.2.1  Simple  Assignment 

The  timpletr  fotm  of  attignment  n 
»dn  •  ecprettion 

In  (hit  cate  the  ecprettion  it  evahiated.  and  the  rrtuking  nfigrt  li  atugned  to  the  variable  The 
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riprr^iw  mint  return  <  tingle  object  (whose  type  mnu  be  included  in  lhat  of  the  variable). 


Fcamplrt  of  simple  assignments  are 
c  .  1 

>  -  string!  substt's  S.  n> 

i  -  array*,  Intltnewfl 
p  -  array*  intJlcreyrrf'h 
i  -  ifoo  •  bad 


\  u  tyjre  muii  include  Int.  i  e  .  n  must  be  Ini  or  any 
\  >  i  (»|>e  muit  include  string 
\  j'i  type  mull  include  arrayf  Int) 

*  p's  i»|>e  must  include  arrayf  Int) 

\  i'i  (y|»e  mini  include  boof 


It  ii  also  possible  to  declare  j  is  ruble  and  assign  lo  il  in  a  single  statement.  this  is  called  a 


cleili- Hum  with  inituliution  and  was  discussed  in  Section  6  2  2 


9.2.2  Multiple  A  ssignment 

I  heir  are  two  forms  of  assignment  that  assign  *o  more  than  one  variable  at  once 
idn  .  ...  -  expression  .  ... 

and 

idn  ....  -  invocation 

I  be  first  form  of  multiple  assignment  n  a  generalualion  of  the  simple  assignment  1  he  first 
s  «'iable  is  assigned  the  first  rsp’ession  the  se- nod  satiable  the  second  expression.  and  so  on  The 
repressions  a-e  >11  esaltiated  'from  left  to  r if Ht *  before  any  assignments  are  performed  The 
number  of  variables  in  the  list  must  equal  the  number  of  expressions,  no  variable  may  occur  more 
thin  >n  r  and  the  type  of  each  variable  must  include  the  type  of  the  corresponding  expression 

This  form  of  multiple  assignment  allows  easy  [sermutation  of  the  objects  denoted  by  several 
v  auahles 

v  y  •  y  » 

'  V  k  *  1  ‘  ' 

and  simila’  simultaneous  assignments  of  variables  that  would  otherwise  require  temporary 
variables 

a  h  -  'a  •  b*.  <a  b* 

quotient  remainder  .  <u  /  v'.  <u  //  v) 

T  here  is  no  form  of  this  statement  with  declarations 

The  serond  fo>m  of  multiple  assignment  allows  one  to  retain  the  objects  resulting  from  an 

invocation  returning  two  or  more  objec’s  The  first  variable  is  assigned  the  first  object,  tbe  second 

variable  'he  se.  nnd  object  and  so  on  The  order  of  the  objrcts  is  the  same  as  in  the  return 

sta’ement  of  the  invnlrd  rou’ine  The  numbe'  of  variables  must  equal  the  number  of  ob Jects 

returned  no  variable  may  nrrur  mo 'e  than  oner  and  the  type  of  each  variable  must  Include  the 
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cor responding  return  type  of  the  invoked  prsxedure  Note  ( Hal  the  right  hand  side  is  syntactically 
restr  icted  to  simple  invocations  <  see  Section  10  1>.  sugared  invocations  (see  Seldom  10  5,  10  7)  are  not 

allowed 

Two  examples  of  this  form  of  assignment  are 

first,  last,  balance  •  acct$query<acci  no' 
x,  y.  i  -  vectorScomponentsf  v> 

9.3  Invocation 

Invocation  n  thr  othrt  fundamental  aition  of  C-LU  In  this  section  we  discuss  procedure 
Invocation,  iterator  invocation  is  discussed  in  Section  II  *i  2  However,  up  to  and  including  passing 
of  arguments,  the  two  are  thr  same 
Invocations  take  thr  form 

primary  (  [  expression  ...  J  ' 

A  primary  is  a  slightlv  restricted  form  of  expression  which  includes  variables  and  routine  names, 
among  ocher  things  <See  the  next  section  » 

The  sequence  of  activities  in  performing  an  invocation  are  as  follows 

1  The  primary  is  evaluated  It  must  evaluate  to  a  procedure  or  iterator 

2  The  expressions  are  evaluated,  from  left  to  right 

1  New  variables  are  introduced  cor  responding  to  the  formal  arguments 
of  the  routine  being  invoked  tie.  a  new  environment  It  created  for  the 
invoked  routine  to  execute  in' 

1  The  objects  resulting  from  evaluating  the  expressions  <the  actual 
argtimen’t'  ate  assigned  to  the  corresponding  new  variables  (the  formal 
arguments'  The  first  formal  is  assigned  the  firtt  actual,  the  second 
formal  the  second  actual  and  so  on  The  type  of  each  expression  must 
be  included  in  the  type  of  the  corresponding  formal  argument 

•>  (  ontrol  is  transferred  to  the  routine  al  the  start  of  its  body 

An  invocation  is  considered  legal  in  exactly  those  situations  where  all  the  fimplicit)  assignments 

involved  in  its  execution  are  legal 

It  is  permissible  for  a  routine  to  assign  an  object  to  a  formal  argument  variable,  the  effect  is 
fust  as  if  that  objrct  were  assigned  to  any  other  variable  From  the  point  of  view  of  the  invoked 
routine,  the  only  difference  between  its  formal  argument  variables  and  it»  other  local  variables  Is 
that  the  formals  are  initialized  by  its  caller 


Invest  ation 


13 


Procedures  tin  terminate  in  two  ways  they  can  terminate  normally,  returning  zero  or  more 
objects,  or  thry  (in  terminate  c »,  <  ttionally  signalling  in  exceptional  condition  When  a  procedure 
terminates  normally  the  recult  objects  heunne  available  to  the  caller.  and  will  (usually)  be  assigned 
to  variables  or  puce-1  as  arguments  to  other  routines  When  a  procedure  terminates  exceptionally, 
the  Mo»  of  control  Mill  not  go  to  the  point  of  return  o(  the  invocation,  but  rather  will  go  elsewhere 
as  described  in  Set  non  I? 

Sons e  examples  of  invocations  are 

p<>  \  invoking  a  procedure  taking  no  arguments 

arrayf  mt'V  reate<  |)  \  invoking  an  operation  of  a  type 

routine  tablef  index  1' input*  \  invoking  a  procedure  fetched  from  an  array 


10.  Expressions 

An  expression  evaluates  to  an  objr-t  m  the  f  I  U  universe  This  object  is  said  to  be  the  mult 
or  •  tluf  of  the  expression  I  xpressncns  are  used  to  narse  the  object  to  which  they  evaluate  The 
simplest  forms  of  e»  prescionc  are  liter  ale  variables  and  routine  names  T  hece  f  orms  direc  tly  name 
their  result  ,rbr<  More  complex  expressions  are  gene'alfy  bt /dr  up  out  of  nesreef  procedure 
into  i'ioos  The  resell'  ol  such  an  expression  is  the  salue  returned  by  the  outermost  invocation 

I  ike  rnmy  othe-  languages  (  I  1 1  h»s  prefix  and  in'ix  operators  for  the  common  arithmetic 
and  comparison  n^xe-a’ions  and  uses  the  familiar  svn'ax  for  array  indexing  and  record  component 
cele.  tom  (eg  irfil  and  »  d  However,  in  (  I  II  these  notations  ate  cnnsicierrd  to  be  abbreviations 
for  p-(»  efu*e  alls  This  all-  *s  boil'  in  types  and  user  de<  ined  types  to  be  treated  as  unif  ormly  as 
possible  and  also  allows  the  programmer  to  use  familiar  notation  when  appropriate 

In  addition  tn  invocation  'our  other  form'  are  used  fo  build  complex  expressions  out  of 
simpler  mes  These  a-e  'he  conditional  operators  c»nd  and  c  Of  f  see  Section  |0  S*.  and  the  lype 
conversion  opera'mns  sip  and  down  'see  Section  10  101 

T  he-e  is  a  syntactic  ally  tes'rc'ed  form  of  exp'ession  called  a  primary  A  p.imary  is  any 
exp’ession  that  does  not  have  j  p>efix  o'  infix  operator  or  parentheses  at  the  top  level  In  certain 
plares  the  syn’ax  'erpnres  a  prima'y  r a’her  than  a  general  rxprrscion  This  has  been  done  fo 
increase  the  readability  of  the  resulting  programs 
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As  a  general  rule.  procedures  with  side  effects  should  not  be  used  in  expressions.  and  programs 
shook!  mu  depend  on  (hr  order  in  which  expressions  are  evaluated  However  to  avoid  surprises, 
the  subexpressions  o(  any  expression  are  evaluated  Irons  left  to  right 
The  various  forms  of  expressions  are  explained  below 

10.1  Literals 

Inteyer  rr.y|  character.  string  Inxikan  and  null  literals  are  expressions  The  syntax  for  literals 
is  given  in  Sections  7  |  to  76  The  type  of  a  literal  expression  is  the  type  of  the  object  named  by 
the  literal  For  example,  true  is  of  type  bool  *abc"  is  of  type  airing.  « t 

10.2  Variables 

Variables  are  identifiers  that  name  objects  of  a  given  type  The  type  of  a  variable  is  the  type 
given  in  the  declaration  of  that  variable  and  determines  which  objects  may  be  named  by  the 
variable 

10.3  Procedure  and  Iterntor  Names 

Procedures  and  iterators  may  be  defined  either  as  separate  modules,  or  within  a  cluster  Those 
defined  as  separate  modules  are  named  by  expressions  of  the  form 
idn  [  l  constant  ....)] 

The  optional  constants  are  the  parameters  of  the  procedure  or  iterator  abstraction  (Constants  were 
discussed  in  Section  8  1  * 

When  a  procedure  or  I’erator  is  defined  as  an  operation  of  a  type,  that  type  must  be  part  of 
the  name  of  the  routine  7  he  form  for  naming  an  operation  of  a  type  is 
type  spec  t  name  [  t  constant  ....)] 

The  type  of  a  procedure  or  iterator  name  is  just  the  type  of  the  named  routine  Some 

examples  of  procedure  and  iterator  names  are 

primes 
sort!  Inti 
Intladd 

array!  bool ’t elements 
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10.4  Procedure  Invocations 

Procedure  invocations  have  the  form 
primary  *  [  expression  ....  1  • 

!  hr  primary  is  evaluated  to  obtain  a  procedure  object,  and  then  the  expressions  are  evaluated  left- 
to  right  to  obtain  thr  argument  objects  1  he  procedure  is  invoked  with  these  arguments,  and  the 
ixbject  returned  is  the  result  of  thr  entire  repression  For  more  discussion  see  Section  9? 

T  he  following  expressions  are  invocations 
p<x> 

Inrtaddfa.  b> 

within!  t  ?)(7  |  0OV7) 

Any  prexedure  rnvcxation  P' I  j  I  n>  must  satisfy  two  constraints  the  type  of  P  must  be  of 
the  form 

proctype  <1  |  I  n'  returns  1  R  1  signals  t  ) 

and  the  type  of  enh  expression  FJ  must  l>e  included  in  the  corresponding  type  T(  The  type  of  the 
end:  .*  in  vex  a!  ion  expression  is  j»ix  en  hy  R 

Procedures  can  also  he  invoked  as  sta'ements  (see  Section  II  l> 

10.5  Selection  Operations 

Arrays  sequence  re-.n'ds  and  strmtures  are  collections  of  objects  Selection  operations 
provide  a  ess  to  the  individual  elements  nr  romjronents  of  the  collection  Simple  notations  are 

I 

provided  for  invoking  the  ref,  *  and  ifcc  operations  of  array  types  the  ftuh  operation  of  sequence 
types  the  fn  and  ief  opr-a'ions  of  re>ord  'ypes  and  the  get  operations  of  structure  types  In 
addition  these  'syntactic  sngarinps'  for  selection  operations  may  he  used  for  user -defined  types 
w  th  the  appropriate  prnjxerties 

10.5.1  Element  Selection 

An  element  selection  expression  has  the  form 
primary  [  expression  ] 

This  form  is  just  syntartre  sugar  for  an  invocation  of  a  /efcA  operation  and  is  completely 
equivalent  to 

T  ifetch'primary  expression' 
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where  1  is  the  tyj>e  of  fundiy  For  example.  if  a  is  an  array  of  integers,  then 

al  27) 

is  completely  equivalent  (o  (hr  invocation 
arrayf  Intllfeu  h'a  ?7) 

When  f»i» ij>y  is  an  arrayfS)  or  sequencers)  for  some  type  S  rxf»<jiic>n  must  be  an  list  and 
the  result  has  tyjw  S  However  the  element  selection  expression  is  noC  restricted  to  arrays  and 
sequences  T  he  expression  is  legal  whenever  the  corresponding  invocation  is  legal  In  other  words, 
T  (the  type  of  friend's*  must  provide  a  procedure  ojseration  named  ftUK.  which  fakes  two 
arguments  whose  tyj>es  include  the  ty|>es  of  primary  and  exfrenien.  and  which  returns  a  single 
result 

The  use  of  fttch  for  user  defined  types  should  be  restricted  to  types  with  array  like  behavior 
Objects  of  su<  h  types  will  contain  (along  with  o'her  informa'ion*  a  collection  of  objects,  where  the 
collection  can  be  indexed  in  some  way  For  example,  it  might  make  sense  for  an 
associative  memory  tyj>e  to  provide  a  frUK  operation  to  access  the  value  associated  with  a  key 
F efcA  operations  are  intended  for  use  in  expressions,  thus  they  should  never  have  side-effects 
Array  like  types  may  also  provide  a  jfere  operation  (see  Section  II  2  l> 

10.6.2  Component  Selection 

The  component  selection  expression  has  the  form 
primary  .  name 

This  form  is  just  syntactic  sugar  for  an  invocation  of  a  (ft  namr  operation,  and  Is  completely 
equivalent  to 

Ttget  rta»se< primary! 

where  T  is  the  tyj>e  of  primary  For  example  if  x  has  type  record  first  list,  second  real),  then 
x  ,f  irst 

IS  completely  equivalent  to 

recoedfust  lot  second  realttyet  fitst<x> 

When  T  is  a  record  or  structure  type  then  T  must  have  a  selector  called  name,  and  the  type  of 
the  result  will  he  the  type  of  the  component  named  by  that  selector  However,  the  component 
selection  expression  is  not  restricted  to  rerordt  and  structures  The  statement  is  legal  whenever  the 
corresponding  invmation  is  legal  In  other  words,  T  <the  type  of  ffimary)  must  provide  a 
procedure  operation  named  (ft  name  which  tales  one  argument  whose  type  includes  the  type  of 
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J»M"i4ry  and  uhuh  retutnx  i  single  result 

1  hr  use  (»l  (rt  tijver  aliens  lot  user  del  tried  tvjves  should  hr  restricted  lo  types  with  record  like 
hr h.« v tot  Object!  ol  su  h  tyjves  will  contain  'along  with  other  information'  one  or  more  named 
objects  | or  ex ample  it  might  make  seme  lot  a  file  ty|>e  to  provide  a  get  author  operation,  which 
returns  the  name  of  a  files  creator  her  operation!  are  intended  for  use  in  expressions,  thui  they 
should  never  have  side  effects 

T yjxes  with  named  comjxonents  mar  also  provide  irf  operations  (see  Section  II  ?  ?> 

10.8  Constructors 

(  onstriK  tors  ate  expressions  that  enable  users  to  create  and  initiative  arrays,  sequences,  records, 
and  structures  (  onstructors  are  nor  provided  foi  user  defined  types 

10.6.1  Array  Constructors 

An  array  conltnntor  has  the  form 

tyjve  sjvev  t  [  |  expression  j  [  expression  ...  ]  1 

The  type  spec  if  ication  mm'  name  an  array  tvjw  array!Tl  This  is  the  type  of  the  constructed 
array  T  he  expression  pre»  r* I im  'hr  must  evaluate  to  an  integer,  and  hex omes  the  low  txound  of 
tfie  ivnstruc'rd  array  If  ’his  expression  is  onit'rd  the  low  hound  is  1  T  he  expressions  following 
the  *'  are  ev  aluatrd  ro  obtain  the  eler  xents  of  the  artay  They  correspond  (left  to  right!  to  the 
indexes  S.'u’ui  frr.  hru r,M.  fcL»td*2  lor  an  array  of  type  arrayrfTl.  the  type  of  each 
element  exprecsmn  in  rhr  cvnstruc’or  must  he  in  luded  in  T 
for  example  the  expression 

array!  booll  t  ! true  falsel 

construrls  a  new  bnnlean  array  with  two  elements  true  *at  index  79'.  and  falae  *at  index  fV"  The 
expression 

array!  ail  T  faitfl.  ailt  11 

f  where  <ji  is  equated  to  array!  Inti'  rrrates  two  distinct  integer  arrays  both  empty  and  create!  a 
third  array  to  hold  them  The  low  hound  of  each  array  is  I 

An  array  constructor  is  comput  at  tonally  equivalent  to  an  array  ciratt  operation,  followed  by  a 
number  of  array  operations  However,  sue f*  a  sequence  of  operations  cannot  be  wrttteo  as  an 
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10.6.2  Rrqu«nr«  Constructors 

A  sequence  constructor  hit  the  form 
tyj >e  spec  t  (  [  expression  ,...]) 

The  type  specification  must  name  a  KquflKt  tq>e  sequence.  I  )  1  hit  it  the  type  of  the 

constructed  sequence  I  hr  ft  prettiunt  air  rv  aluated  to  obtain  the  elements  of  the  sequence  They 
correspond  le<t  to  r » s; h t »  to  the  indexes  I  2.  1  For  j  sequence  of  type  sequence!  T).  the  type  of 
each  elerrtrrtt  expression  in  the  constructor  mutt  f>e  in.  hided  in  7 

A  sequen  e  nnttftii’or  it  omputa'innally  equivalent  to  a  sequence  ’tea  operation  followed  by  J 
numlet  of  sequence  d<f.f*  operations 

10.6.3  Record  Constructors 

A  record  eonuructor  hat  the  form 
type  vpet  t  I  field  I 

where 

field  s  name  ...  eepretuon 

Wheneve-  a  field  hat  more  than  one  name  it  it  equivalent  to  a  tequence  of  fieldt.  one  for  each 

name  Thut  the  following  two  constructors  i'e  equivalent 

R  -  record  a  Int  b  Int.  <  Ini  ) 

Rtla  b  7.  c  9) 

Rtla  7.  b  7.  c  9) 

In  a  record  conttructor  the  type  tpec  if  ication  mutt  name  a  record  type 
r«coed[AjT|  Tn1  T hit  will  be  the  type  of  the  convtructed  record  The  component  names 

in  the  field  litt  mutt  be  ecactlt  the  namet  S|  Sn  although  these  names  may  appear  in  any 
order  The  expressions  ate  evaluated  left  to  right  and  there  it  one  evaluation  per  component 
name  even  if  several  component  names  are  grouped  with  the  same  expretuon  The  type  of  the 
expression  for  component  S(  mutt  be  included  in  T(  The  results  of  thete  evaluations  form  the 
components  of  a  newly  constructed  record  This  record  is  the  value  of  the  entire  constructor 
expression 

As  an  example,  consider  the  following  record  conttructor 

AS  -  array*'  string) 

R  T  *  record  littl  list?  AS.  item  Inti 
R  1 1(  item  ?.  Iittl  list?  ASK  "Susan*.  "George*.  "Jan")) 
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I  hu  produces  4  record  (hit  contains  in  intryer  and  two  distinct  <but  similarll  arrays  The  arrays 
it  ill st in  t  hr  nice  (hr  array  constructor  repression  is  evaluated  iwuc,  once  for  hill  and  oner  for 

hu: 

A  record  constructor  is  computationally  equivalent  to  a  resold  crtalr  operation  («r 
Append  is  It  but  'hat  opera'ion  is  not  available  to  the  user 

10.6.4  Structure  Constructors 

A  structure  constructor  has  thr  form 
type  spe  l  f irM  .  ...  ) 
where  <as  for  irntdi1 

t  leld  s  name  repression 

Whrnevr>  i  i  irM  his  n. ■■  r  thin  one  nmir  it  is  equivalent  to  a  sequence  of  fields  one  for  each 
name 

Iri  i  unit  tire  on  st  mi  .<•  ’hr  ;*pe  spec  i  f  ic  a  t  ion  must  name  a  structure  type 
struct  >|  T|  Sn  I  n1  This  will  hr  the  type  of  thr  constructed  structure  The  component 
names  in  thr  1  irM  It ■  mu  ’  be  rv  actly  'hr  names  Sj  although  these  names  may  appear  in 

any  »  1e*  T  hr  rsp'r  sums  a'r  r,  itui'r  '  Ir't  to  rifh'  and  their  is  one  evaluation  per  component 
nu  r  evrn  it  srsr-il  ns  q*nnrn'  names  it  grouped  m'h  thr  same  repression  The  type  of  the 
ripT.smn  *or  nnpinrn:  S(  must  hr  included  in  7(  Thr  rrsults  of  thrse  evaluations  form  the 
■imponents  o'  i  nr»t>  nstrii''ed  s"u  urr  This  structure  is  the  value  of  the  rnttre  constructor 
e»  prrssinn 

A  sfruc'ure  construe  tor  is  impura'iiinallr  equivalent  to  a  structure  create  operation  (see 
Appendu  II1  hut  that  t*>er  i>ion  is  nor  available  to  the  user 

10.7  Prefix  »ncl  Infix  Operators 

fill  allows  m‘n  and  prefis  nora'mn  In  he  used  as  a  shorthand  for  the  following  operations. 
T  hr  r ahlr  shows  thr  shorthand  form  and  rhr  equivalent  repandrd  form  for  each  operation  For 
earh  operation  the  type  T  is  the  tsqie  of  the  first  operand 
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Short  hand  f  ocm 

F  spansion 

rxpr.  •  •  fxpr^ 

T 1 (sower t ex  pr  j .  expr**) 

expr |  //  rxpr> 

TJmocbexpt j,  rxpt<>) 

ftpr»  /  r\pr0 

1  tdiv(f*pt|,  rxpr<0 

rxpr.  t  rxpr.> 

1  tmuKe*pt|.  e\pt.>) 

rxpr.  M  rxpr.-* 

TJionfaf'e»pt|.  rxpt0> 

rxpr.  *  rxpro 

I  Fadd<e»pt|  espr.>> 

rxpr.  rxpro 

T  Jsub'eyptj  espial 

rxpr.  *  rxpro 

I  $lt<fxpt|.  expt0> 

rxpr.  <  -  rxpro 

I  Ue'esptj.  expr.,) 

rxpr.  -  rxpro 

T Jeguahexpt |.  e\pr->> 

rxpr  ■  >•  rxpro 

1  Jge'eypt|.  rspr->> 

rxpr.  »  rxpro 

Ttgtiexptj  evpr^l 

rxpr.  -  *  rxpro 

(e\ptj  ■  evptr,) 

rxpr  |  **«  -  rxpro 

—  'exprj  <  -  espial 

rxpr.  **•  rxpr*> 

~  'expr.  •  expr-,' 

rxpr  |  »•  rxpro 

*>  <ey  pr  j  »•  expr  V 

rxpr.  •  rxpro 

*.  <e«  pr  j  >  exptn' 

rxpTj  K  rxpfo 

T  Sandtesprj,  evprV 

rxpr  |  1  rxpro 

T Jor<expt|  rxpr-,' 

expr 
~  expr 


I  $m/nut'r*pr> 
I  Jnot'expr> 


Operator  notation  m  »f v*~ri  most  heavily  lor  the  built  in  types.  but  may  be  used  for 
user  defined  types  as  writ  When  these  operations  are  provided  for  user  defined  types,  they 
should  always  be  side  rf  f  rt  t  ft  re  and  they  should  rwm  roughly  the  same  thing  as  they  do  for  the 
built  in  types  for  example  the  i  omparisnn  operations  should  only  be  used  for  types  that  have  a 
natural  partial  or  total  order  Usually  the  comparison  oj>erations  </f.  It,  rqual.  gt.  £fl  will  be  of  type 
proctype  1  T.  7  '  return*  bool' 
the  other  binary  njseryfmns  <e  g  ,  add.  sub'  will  be  of  type 
pro ctype  1  T .  T  >  return*  <TI  signal*  <  I 
and  the  unary  operations  will  be  of  type 

proctyp*  i  D  return*  I T>  *ign*l»  I  I 


W"R 


(and  and  Cor 
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10.8  Cand  and  Cor 


I  wo  ad  lttional  I'm  1 1  v  operators  are  provided  I  hrse  are  the  conditional  and  operator,  cand. 
ind  the  i onditional  er  ryperator.  cor 

expression  c and  expressions 


"  the  hoohin  ;rd  ol  expressing  and  expression  ,  However,  if  expression)  Is  falae,  expressions  II 
never  ev  a lo  »'e  ! 


expression)  cor  ex pression  , 

is  the  boolean  r>r  of  expressionj  and  expressions.  but  expressions  is  not  evaluated  unless 

ex  j  exciorii  ix  false  lor  hoth  cand  »nd  cor.  exp'ession|  and  expressions  must  have  type  bool 

(  onditional  expressions  in  f>e  use!  to  avoid  run  time  errors  Tor  example,  the  following 

boolean  expressions  <  its  be  use!  without  fear  of  “bounds*  or  "rrro  divide*  errors 

i  low  fwnin  1  •  -  i'  c  and  1 1  •  -  high  bound'  cand  <  At  il  0) 
in  *  O'  cor  d'fl(l//n  -  O' 

Re.  ii/se  ,f  thr  •  •o'Urtani)  eapreswnn  rvihutiori  involve d.  mei  ol  cmnt)  and  cor  are  not 
etpnv  alent  to  any  prnredure  invc*  anon 


10.9  Precedence 


When  in  ex  p*r  i  <  •»  i  is  not  fully  parenthesire-1  the  proper  nesting  of  sul»expressions  rrsighf  be 
ambiguous  The  following  prneferi  e  Miles  a-r  live)  tn  rrsnlve  surh  amhiguily  The  precedence 
ol  ea  h  infix  ope- nor  is  given  in  the  table  below  Higher  presrdenrr  operations  are  performed 
firsr  Prr'tx  operators  i  Is*  a  yx  ha  v  e  precedent  e  over  rnf  u  operators 
The  precedence  for  infix  operators  is  as  follows 

Precedence  Operators 
S  •• 

4  till 

T  .  It 

x  r  <•  •  >•» 

%«  S  »  «  %•  %« 

I  A  cand 


0 


cor 


Prnnlrntr 
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I  hr  ordrr  of  rvaluatlon  for  operators  of  thr  sarnr  prnnlrntr  is  Irft  to  right.  f*trpt  for  •«. 
whit  h  it  right  to  lr(  t 

Thr  following  rtamplrt  illuttratr  (hr  prnnfmtr  rulri 


F- \j'rrssu>n 
j  .  b  n  t 
a  •  b  -  c 

4  ♦  b  •  •  (  >1(1 

4  -  h  I  c  -  d 

4  •  b 


I  quiy  ylrn?  lorm 
4  •  lb  II  c» 

<4  •  b'  t 
j  •  (bit  i(ti  do 
(4  -  bH  It  -  d> 

<  a>  •  b 


10.10  Up  Rnd  Down 

I  hrrr  yr  no  implit  ir  i»|«r  tonvrrtiom  in  C  I  U  Two  forms  of  rvprrttion  exist  for  r » plic it 

convrrtiom  !  hrtr  yrr 

up  I  r»  ptrttion  I 
down  n  prrttion  • 

Up  4 nd  down  may  hr  utr-1  only  wr’hin  thr  Iw.ty  of  4  tltntri  operation  Up  changet  thr  type 
of  thr  rxprrttton  from  thr  rrp-rtmtarion  tyj>r  of  thr  iluorr  to  thr  abstract  type  Down  converts 
thr  tyjrr  of  thr  r> prrttion  f  rom  thr  abstract  tyj>r  to  thr  rrprr\mt4tion  typr  7  hrtr  tonvrrttom  will 
by  rtpUinnl  (urthrr  in  Sntion  Pi 

10.11  Force 


(I  If  hyc  y  tinglr  hull'  in  pr<»  Hurr  grnrrafor  callrd  fore*  Fore*  t4lrt  o nr  type  parameter, 
and  it  writtrn 

fore*  (  typr  tpn  ) 

Thr  prorrtfurr  fore**  T  !  hyt  tyj*r 

proefyp*  *ny>  rrlurni  T’  signnli  'wring  typr' 

If  forceff?  rt  applied  fn  yn  nhprt  rhyr  it  in  ludrd  in  typr  7  thrn  tl  rrrurnt  that  object  If 
forc*(  7)  tt  yppltrr)  m  an  objnt  that  i«  not  in  tyf>r  T  thrn  it  ttgnalt  "wrong  t ype"  <trr  Section  I?' 

Fore*  it  a  nnrttyry  companion  to  thr  typr  *ny  7hr  typr  »ny  allowt  programs  to  patt 
around  objects  of  arbitrary  typr  However.  to  do  anything  vubstantivr  with  an  objrct.  onr  mutt 
use  thr  primifivr  oprrattnnt  of  that  objrct't  T yp*  7  hit  raitrt  a  conflict  with  compilr  t|m* 


W'  II 


kortr 


M 


type  i  hn  l  in,'  mm  r  in  • ijxi il ion  in  lx  applied  only  when  the  arguments  ate  known  (o  be  of  the 

niiifii  types  1  Im  Mmi  In  t  n  rsolvet  hy  using  fore*  Forcef  I  )  allows  a  program  lo  check.  at 

run  tins*  lh»’  a  particuki'  object  u  actually  of  type  !  It  :his  check  succeeds.  thm  the  object  can 

lx  used  in  all  thr  ways  appropriate  loi  objects  of  lype  f 

I  or  rs ample  ihr  ptix  eciurr  fore*1  I  )  allows  us  lo  legally  wr ur  ihr  ( ollowing  code 

y  any  •  t 
y  mt  -  fore*-'  Inti  s 1 

wrhile  Ihr  following  is  illegal 

x  any  -  t 
y  Int  -  x 

t>«  atisr  ihr  typr  of  y  Int  dors  not  im  hide  ihr  tajx  of  Ihr  rtprrssion  r  <  any) 


11.  Statements 

In  ’his  sr:in«n  wr  ‘rs  -ihr  pmvi  ol  ihr  statements  o!  C  l  U  Wr  omit  diKUSSIon  of  Ihr  algnal 
exit  arv*  except  oi’rmenrs  whi  h  a-r  use)  for  signalling  and  handling  rxieptions.  as  devribed 
in  Sr*  ‘ion  |? 

(  (  1 1  is  a  s'l’rnnr  irnirl  Ian,  m,  r  ir  s'x'rrsmis  a'r  executed  for  Ihnr  side  effects  and 
I,,  no*  rr’uMi  any  .  » Ii  ar  M  s'a’rrxn’s  \-t  njirnmls  lhal  permit  ihr  pi  op  r  amrner  lo 

I  el  inr  how  >n”n|  M»s  ’h’  i,h  'hr  program  Ihr  -raf  work  is  door  fiy  (hr  tt’rf'.'f  ifalrrnents 
assij-nrsen’  and  in.*»’ion  Assignment  has  alrrala  been  dtsaussed  in  Section  *>,  the  invocation 
sla’rrsm’  is  discussed  in  ^e  ’ion  111  Irk*  I  »n  special  ili’mm’i  lhal  kook  like  assignments  but 
air  rr^ly  invrx  alums  a’r  diu  ussecl  in  Section  11  ? 

1  hr  synlas  of  C  LU  is  defined  to  jxrmit  a  con’rol  statement  to  control  a  group  of  equatei, 
declarations  and  statrrxn’s  ta’hr’  than  fist  a  smpkr  statement  Stirh  a  group  is  tailed  a  hrvfy  and 
has  the  form 

Newly  »  ^  ecjiiate  ^ 

|  sta’emmt  J  \  statements  include  declarations 

f 

S.  npr  rules  tor  N»1irc  ce-e  discussed  in  Se-’irm  M  No  ijsecial  terminator  IS  neecled  to  signify  the 
end  n f  a  hwwly  'eservel  words  used  in  the  vatmus  tomposind  statements  serve  to  delimit  the  bodies 
On  asumally  it  is  necessary  tn  explicitly  indr  ate  that  a  group  of  statements  should  he  treated  like  a 
single  sta’rment,  this  is  dime  by  the  him  k  statement  discussed  in  Section  II  ' 
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The  conditional  statement  iv  discussed  in  Section  1M  loop  statements  ate  discussed  in 
Section  II  S.  as  are  so me  special  iiiinnfnn  ilui  control  termination  of  a  single  Hrralion  or  a  unglr 
loop  7  hr  tagcase  statement  is  discussed  in  Section  116  finally,  ihr  return  statement  is 
diuuunl  in  Sntion  II  7,  and  thr  yield  statement  in  Sec l ton  II  8 

11.1  Procedure  Invocation 

An  invocation  statement  invokes  a  procedure  Its  form  is  the  same  as  an  Invocation 
expression 

primary  <  [  expression  ...  ]  * 

T  hr  primary  must  evaluate  to  a  procedure  object  and  the  typ  o(  rash  expression  must  t>e  included 
in  the  type  of  the  i  or  respmding  forosal  argument  for  that  procedure  The  procedure  may  or  may 
not  return  results  if  it  does  return  results  they  are  discarded 
For  example  the  statement 

array*  in 1 remh' a > 

will  remove  the  tisp  element  of  >]  (assuming  a  is  an  array*  tntP  Ke"t4  also  returns  the  top  element, 
hut  It  is  disi  ar  led  in  this  case 

11.2  Update  Statements 

Two  sfwr  ial  statements  a»r  provide')  for  updating  components  of  records  and  arrays  In 
addition  ihrv  mav  he  used  with  user  defined  types  with  the  appropriate  properties  These 
statements  resemble  assignments  syntactically  her'  are  really  mvorafront 

11.2.1  Element  Update 

The  element  opiate  sutemen'  has  the  form 
primary  [  expressing  1  •  expression-, 

This  form  is  me-ely  syntactic  sugar  fot  an  invocation  of  a  ifeu  operation  and  Is  completely 
equivalent  to  the  invocation  statement 

T  | store* puma i y.  expression]  expression's' 
where  T  is  (he  type  of  p* i"»«jry  For  example  if  a  is  an  array  of  integers. 

atm  •  ? 

is  cnmplr*elf  eqmvalenr  to  the  invocation  statement 
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array4  mtlt  stores  a.  ??. 

I  hr  elrment  upfate  statement  is  nrt  rrsrricted  to  arrays  7  be  statement  is  legal  if  the 
cor  trsponding  invocation  statement  is  Ir,  al  In  other  wrords.  I  (the  type  ol  priwicjry)  mull  provide 
4  procedure  operation  nirml  which  tales  three  arguments  whose  types  include  those  of 

f>  ri"ttjry  r\  fn  iter  ,  and  rx  f’fi  urn  respec  lively  In  case  ts  an  array's)  lor  some  type  S, 

r\f'eiuc>«j  must  l>e  an  inteyer  and  <t  freuten  •>  must  he  included  in  S 

VS  e  recommend  that  the  use  of  •,!.•"<  for  user  defined  tyjvri  he  restricted  to  !yf>es  with 
array  hie  behavior  i  e  types  whose  oh je  rs  cu’ain  mutahle  collections  of  indexable  elements  For 
example  it  might  male  seme  fot  an  associative  memory  type  to  provide  a  i!i>rt  operation  for 
changing  the  value  associate!  with  a  le»  Such  fyg>es  may  also  provide  a  fetch  operation  (see 
se  turn  In  s  |t 

11.2.2  Component  Update 

1  he  t  ompcnrnt  upla'e  sta'rmrn'.  has  the  to'm 
primary  .  name  .  expression 

I  his  form  is  rserrlj  syn'a  i  sugar  (or  an  invocation  of  a  let  tijnr  operation,  and  is  completely 
equivalent  to  the  into  a'lon  sta'eosen! 

!  tset  Hd-idpt  imat  y  expression' 

»hre  I  is  'he  type  o'  —  :'y  1 1>>  ex  ample  if  yhastyjvrrecordhirst  In  t.  sec  ond  real),  then 

x  first  *  f> 

IS  comple’ely  rquiv  alenr  to 

recordli'vt  mt  seon!  real  tvet  first's  f>’ 

The  foroponent  opiate  ca'ement  is  not  restru'ed  to  reords  The  statement  is  legal  if  the 
i  or  t  espcxndm,-  invoca’inn  s'a’ement  is  U\al  In  other  words  T  'the  type  o(  prima'p  must  provide 
a  prr»  elure  oy'er  a’mn  '  alle!  rr  e.;e r  »  hi  h  ta  I  rs  two  a'gumen’s  whose  types  me  hide  the  types  of 
pi”t'y  and  -  respectively  When  T  n  a  re<n'd  type  then  T  must  have  a  selector  called 

-  :  —  e  an!  "he  ’y(>e  of  ref-’/:  --  must  l>e  included  in  the  type  of  the  ream  portent  named  hy  that 

cele  tor 

VVr  rennnmri  tha'  r‘  npr’afions  he  provided  for  user  defined  types  only  if  record  like 
t-eh  a  x  tor  is  desire!  i  e  it  is  me  a  n  inf  f ut  to  jve'mi'  some  pa’ts  of  the  ahstf  act  ob  pvt  to  he  mod  if  led 
hy  seletor  name  |n  gene-al  ter  operations  should  not  perform  any  substantial  computation  except 
possibly  cbekmg  hat  the  a'gurven’s  va'isfy  certain  ccnsfraintt  For  ea  ample  in  a  bank  account 
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type,  there  nii^lii  hr  j  i ti  mm  hd/amr  ojier  ation  to  vrt  whit  thr  minimum  balance  in  (hr  account 
mull  be  However.  tirpeu!  and  a>ifA<fr<ia'  operation!  make  more  trme  than  a  if!  boJarur  operation, 
even  though  thr  ict  fa/ancr  oyrer  ation  could  compute  thr  amount  depotiird  of  withdrawn  and 
enforce  irmantic  contlrainlt 

In  our  r<(M"irfur  tyj>ri  with  i/f  c>f>rratM>oi  occur  Irtv  frrtjumily  than  lyprt  with  gfl  oprratiom 
<  tee  Section  |0  S  ?> 

11.3  Block  Statement 

T  hr  block  tcatrmmf  permitt  a  irqcimc  r  of  ttatrmmit  to  hr  grouped  logrfher  into  a  tingle 
ttatemenr  If \  form  it 

begin  Incdr  end 

Sincr  thr  cyntac  already  prrmift  hodiri  inndr  control  vtatrn>mtt.  thr  main  utr  of  thr  block 
if  airmen!  it  to  group  ttatrmmn  togrthec  f or  utr  with  thr  except  itatrmmt.  trr  Section  I? 

11.4  Conditional  Statement 

The  form  of  thr  conditional  ttatrmm:  it 
If  exprrttion  then  body 

^  elself  rap'rttion  then  body  } 

[  else  body  ] 
end 

Thr  rtprrttinnt  men!  t>r  of  type  bool  T  hry  a'r  rvaKiated  tciccrttivrly  until  onr  it  found  to  br 
true  The  body  corresponding  to  thr  firvt  true  exprrcuon  it  executed.  and  thr  execution  of  the  If 
ttatrmmt  then  fe«minatrt  If  none  of  thr  raprrttiont  it  true  then  thr  body  in  Ibr  else  ctautr  Ik 
executed  <if  thr  else  tlantr  rt  ntt'  Thr  elself  form  provider  a  convenient  way  to  write  a 
multi  way  branch 

11.5  Loop  Statements 

There  are  two  formt  of  loop  eytrmrnrc  thr  while  ttatrmrni  and  thr  for  ttatrmmt  Alto 
provided  are  a  continue  tta'rmrnt  lo  terminate  thr  current  cycle  of  a  lonp  and  a  break  ttatrmmt. 
to  terminate  the  innermott  loop  Thrtr  a ’t  diuutted  below 
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11.5.1  While  Statement 

I  hr  while  statenvent  has  the  form 
while  ex  pretsion  do  Ik«1|  end 

|n  p(!r\!  is  !<>  r  epeared  ly  exe-  utr  !  he  Im«)  y  as  loni-  a  s  the  ex  pression  r  etna  in  i  true  1  he  ex  pression 
mint  he  of  type  bool  If  the  vilue  of  the  expression  is  true  the  body  it  exeruted.  and  then  the 
entire  while  ttafemenf  it  exer  tiled  again  When  the  expression  evaluate!  to  falte.  exerution  iff  the 

while  statement  terminatet 

11.5.2  For  Statement 

1  he  only  way  an  iterator  ee  Section  P  ian  he  invoked  it  by  uve  of  a  foe  statement  1  he 

iterator  produces  a  tr.jnrn  e  of  if/-,  whe-e  an  Hem  it  a  group  of  rero  or  more  objects'  one  item  at 
a  time,  the  |x»1y  of  the  for  statement  is  executed  for  each  iters  in  the  sequence 
T  he  for  statement  has  the  lotn 

for  [  idn  |  in  invocation  do  body  end 
of 

for  [  dec I  ]  in  mvrv  a'tofi  do  body  end 

I  he  inviv  .'ion  must  t*e  an  I’erator  invocation  The  nfn  form  uses  previously  declared  vanahlet  to 
seme  »s  the  loop  variabW-x  while  -he  At  !  form  in’rivlutes  new  variables  local  to  the  for  statement, 
for  this  purpose  In  either  cave  the  type  of  raih  variable  must  include  the  corresponding  yield 
type  of  the  invoke-)  I'e-atof 

}  xerution  of  the  for  statement  p-.»rw1s  js  follows  first  the  iterator  is  invoked  and  It  either 
yields  an  item  or  re-mina'es  If  the  i-e-,-or  yields  an  item  Its  execution  is  temporal lly  suspended, 
the  ohp-r  -s  in  ’hr  1-rrv  a-e  asci.-ned  to  the  loop  variables  the  body  of  the  foe  statement  is  executed, 
and  'hen  exr.tHian  of  the  I’e  ator  is  resumed  (from  the  point  of  suspension'  Whenever  the 
Iter  a'or  ferminy'rs  the  entire  foe  sfa'emenl  terminates 
An  example  of  a  for  sra'ement  is 
a  array)  Inf’ 

sum  lot  *  0 

for  x  Inf  In  array)  Inf ’fcW-men's’  a’  do 
sum  -  sum  •  x 

end 

whirh  will  compute  'he  Slim  of  all  the  in'rgrrs  in  an  array  of  integers  This  example  makes  uve  of 
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the  fltntit i  iterator  on  array*  whuh  yield*  the  element*  of  the  array  one  by  one 

11.5.3  Continue  Statement 

The  conllnut  uatement  hit  the  (orm 
continue 

It*  effect  •»  to  terminate  execution  of  the  Inuly  of  the  imallett  kxjp  Uatement  in  which  It  appear*, 
and  to  vtart  the  next  eyile  of  that  k«ip  ( if  any* 

11.5.4  Break  Statement 

The  break  uatement  hat  the  form 

break 

lt»  effect  it  to  terminate  execution  of  the  tmallest  loop  uatement  in  which  It  appear*  Execution 
continuec  with  'he  vtatement  following;  that  kxip 
For  example 

turn  Int  -  0 

foe  x  Int  In  array*  Intllelementt'a1  do 
turn  *  turn  •  x 
If  turn  ••  100 

then  tom  -  KC>  break  end 
end 

computet  the  minimum  of  inf  and  the  turn  of  the  integer*  in  a  Note  that  execution  of  the  break 
Uatecrxen'  will  termina'e  boch  the  reratoc  and  the  foe  loop,  continuing  with  the  Uatement  following 
the  foe  loop 

11.6  Tagcaxe  Statement 

The  tageate  ctatement  it  a  tpe»i*l  ttaiement  provided  for  decompoting  oneof  and  variant 
object*  Pe*  all  that  a  onent  o*  variant  tyj*r  n  a  ditcriminated  union  and  each  object  contain*  a  lag 
and  tome  other  oh  pet  called  the  rvj/wr  <  tee  Section*  7  I?  and  7  |1)  The  tageate  Uatement  permit* 
the  tele* turn  of  a  hody  to  perform  hated  on  the  tag  of  the  object 
The  form  of  the  tageate  uatement  it 
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tag rase  rxprrttion 
Ug  ifm  ^  lip  irm  } 

[  other*  tunly  ] 
end 

wbrt  r 

Up  itm  s  tag  run*  .  [  <  idn  l>j*  tprc  1  ]  body 
1  hr  rxprrttion  run'  rxalui'r  to  t  onrof  or  t  if  linl  object  1  hr  lip  ol  I  hi*  objrxt  it  ihrn  mile  hed 
ii’iint!  (hr  nartrt  on  the  u,  amt  Whrn  i  nu’ih  it  found.  if  i  definition  <ii#fi  lip*  >pf(^  exittt. 
I  hr  x  ilur  ( omjujnrnt  o*  'hr  oh  f~  •  n  attipned  to  I  hr  lot  il  vit  uhlr  of  h  1  hr  mil<  htng  body  it  then 
r\rtii!r-1  ofi  it  lrf inrd  only  in  thi!  ht»1y  l!  no  milch  it  found  the  body  in  the  other*  itm  II 
rxn  uletl 

In  i  tynut  i  illy  offer’  tagease  tuiemenl  ihr  folk>t*ing  (onttfiinli  ire  tilitfird  The  (ype 

of  Ihr  rvprr  non  nut!  hr  tome  mm'1  of  vitiinl  !!(*  T  I  hr  lipt  named  in  (he  (ip  irmt  mtltl  be 

i  tutor!  ol  ihr  iipt  of  T  inti  no  lip  miy  ouui  more  (hin  once  If  ill  lipt  of  T  ire  preterit,  there 

it  no  other*  itm  otheiwitr  in  other*  irn  ruttl  be  prrten!  finilly,  on  iny  Ug  irm  coniitning  a 

cletliulion  :<r  tyf*  ■  f-s  !if'  i  pr  mutl  rrpul  Ihr  type  specified  it  corrrtjxonding  in  T  lo  the 

llg  or  lift  nine j  tn  'he  Up  irrt 

An  rv  triple  o‘  i  tagrate  vlilemml  it 

pur  -  struct!  ar  mt  rdr  int  litt) 

\  oneof  pii!  pur  empty  null! 


while  true  do 
tage  as*  i 

tag  ertp'y  return- false 
tag  piir  'p  pair'  If  p  if  -  t 

then  return  true' 
elie  »  -  down  p  edr' 
end 

end 

end 

T  hit  tutrmrnt  might  I*  uteri  in  t  list  'of  in'rpett'  npetiiton  I h »l  drtrrminn  whether  tome  given 
integer  (|)  it  on  the  lit! 
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11.7  Return  Statement 

1  he  form  of  the  return  vtatenvent  tv 
return  [  <  exprevvion  ...  )  ] 

The  return  itatement  terminate*  execution  of  the  containing  procedure  or  Heritor  If  the  return 
iUtenvent  i*  in  a  procedure.  the  type  of  each  expremon  must  he  included  in  the  correvponding 
return  tyj>e  of  the  pro<  edure  T  he  expremon*  (if  any*  ire  evaluated  from  left  to  right,  and  the 
ob jei  t*  obtained  t*ecome  the  remit*  of  the  protedure  If  the  return  itatement  occuri  in  an  iterator 
no  revolt*  can  t>e  returned 

For  example  invide  a  procedure  f>  with  type 
proctype  (...>  return*  <lnt.  chert 
the  vtatenvent 

return*  t  at 

IV  legal  and  return*  the  two  te*ult  object*  1  and  '* 

11.8  Yield  Statement 

Yield  vra'emenr*  may  occur  only  in  the  hody  of  an  iterator  The  form  of  a  yield  vtatenvent  l* 
yield  J  <  exprevvion  ...  t  ] 

It  hi*  the  effect  of  impend  inf,  operation  of  the  iterator,  and  returning  control  lo  the  invoking  for 
itatement  The  value*  obtained  hy  evaluating  die  expremon*  (left  to  right*  are  pawed  to  the  for 
vtatenvent  to  he  awigned  to  the  cor rr*pooding  li*t  of  identifierv  The  type  of  each  exprevvion  muvt 
be  included  in  the  correvponding  yield  type  of  the  iterator 

12.  Exception  Handling  and  Exit* 

A  routine  iv  deugnrd  to  jvertorm  a  certain  ta*k  However,  in  yome  cavev  that  tavk  may  be 
tmpovuble  to  perform  In  vuch  a  cave  inoead  of  returning  normally  (which  would  imply  uxcewful 
performance  of  the  intended  tail'  the  routine  ihouki  notify  itv  caller  by  vlgnalling  an  rxffpllpn, 
comivting  of  a  devcriptive  name  and  rero  or  more  remit  objects 
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fin  example  (hr  procedure  stringiletch  takes  a  string  and  an  integer  index  and  rrturm  the 
(h.iiaiiri  of  (hr  string  with  (hr  given  index  However,  il  (he  inieger  is  not  a  legal  index  into  the 
string,  (he  exception  K'uedi  is  signalled  instead  I  he  (ype  sjxecif ication  of  a  routine  contains  a 
dec.  upturn  nl  (fir  exceptions  K  may  signal,  lot  example  atrlngilrtch  is  of  tyj>e 
proctype  string  int  returns  <  char1  signals  (bounds' 

I  hr  exception  handling  mei  hanism  (nnsists  of  two  parts  the  signalling  of  exceptions  and  the 
hand  litis  of  ex  i  rptions  Signalling  is  tfir  was  a  routine  notifies  its  caller  of  an  exceptional 
condition,  handling  is  the  way  the  <  alter  responds  to  such  notif  nation  A  signalled  exception 
always  goes  to  die  immediate  caller  and  the  exception  must  he  handled  in  that  caller  When  a 
routine  signals  an  exception  (he  current  activation  of  that  routine  term  .nates  and  the 
corresponding  invi*  anon  'in  the  caller1  is  said  to  iiJcie  the  exception  \A  hen  an  invocation  raises 
an  exception  control  immediately  transfers  to  :he  closest  applicable  handle!  Handlers  ate  attached 
to  s' atrments,  when  execution  of  the  handler  completes  control  passes  to  the  statement  following 
the  imr  to  which  the  handler  is  attache) 

The  ex  rpdcm  :<’r  seises  as  a  (ene’al  catch  all  error  indication  When  raised,  it  implies 
that  some  lower  level  abstraction  has  failed  in  an  unexpected  'and  possibly  catastrophic)  way. 
f  ::  :.’f  is  a  ompanied  hx  a  string  result  explaining  the  reason  for  the  failure  All  routines  can 
potentially  signal  f  Jilwf  is  implicitly  part  of  all  routine  headings  and  routine  types,  a 

signals  rla  use  must  not  list  failu’f  explicitly 

12.1  Signal  Statement 

An  exception  is  signalled  wgh  a  signal  s'a’rrxent  which  has  the  form 
signal  name  |  '  expression  ,  ...  >  J 

A  signal  statement  may  appear  anxwhrre  in  the  body  of  a  routine  Tbe  execiition  of  a  signal 
statement  begins  wgh  evaluation  of  the  expressions  1 1 f  any*,  from  left  to  right,  to  produce  a  list  of 
ex  egr ic”!  xeii.'ft  The  at’iva'ion  of  the  routine  is  then  terminated  Fxrcution  continues  in  the 
caller  as  described  in  Seclion  I?  ?  below 

I  he  exception  name  must  be  either  one  of  the  exception  names  listed  in  tbe  routine  beading, 
or  f.ulu’r  If  the  corresponding  exception  specification  in  the  beading  has  the  form 
name*  f . . T  fll 

then  there  must  he  exactly  *i  expressions  in  the  signal  statement  and  the  type  of  the  if  A  expression 
must  he  included  in  T ,  If  the  name  is  fmlu’t  then  there  must  he  exactly  one  expression  present. 


62 


Signal  Statement 


SI2  I 


of  type  string 

The  following  useless  procedure  ionium  a  number  o(  examples  of  signal  statements 

signaller  -  proc  (|  Ini'  returns  Mot  signals  l/ero,  negative! Inti) 

If  i  *■  0  then  signal  negative*  i> 
elseif  i  •  0  then  returniii 
elself  i  •  0  then  signal  iero 

else  signal  f  ailure<*unrea(hable  staiemeni  executed1") 

end 

end  signaller 

12.2  Except  Statement 


When  i  routine  activation  terminates  by  signalling  an  exception,  the  corresponding  invocation 
(the  text  of  the  call*  is  said  to  risnc  that  exception  By  attaching  handlers  to  statements,  the  caller 
can  specify  the  action  to  be  talen  when  an  exception  is  raised 

A  statement  with  handlers  attached  is  called  an  except  statement  and  has  the  form 
statement  except  ^  when  handler  } 

|  others  handler  } 

end 

where 

when  handler  s  when  name  .  ...  [  (  dec!  ...  )  ]  body 
when  name  ....<«>  hody 

others  handler  r  others  [  1  tdn  type  spec  t  j  body 
l.et  5  f>e  the  statement  to  which  the  haodlers  are  attached  and  let  It'  he  the  entire  except 
statement  f  arh  when  handler  sfxecifies  one  or  more  exception  names  and  a  hody  The  hody  is 
executed  if  an  exception  wrh  one  of  those  names  is  raised  bv  an  invocation  in  5  All  of  the  names 
listed  in  the  when  handlers  must  he  distinct  The  optional  others  handler  is  used  to  handle  all 
exceptions  nnt  explicitly  named  in  the  when  handlers  The  statement  5  can  he  any  form  of 
statement  and  can  even  be  another  except  statement 

If.  during  the  execution  of  S  some  invoiation  in  5  raises  an  exception  F.  control  immediately 
transfers  tn  the  closest  applicable  handler,  if  the  closest  handler  for  F.  that  It  attached  to  a 
statement  containing  the  invocation  When  execution  of  the  handler  complrfev  control  passes  to 
the  statement  following  the  one  to  which  the  handler  is  attached  Thus  if  the  closest  handler  IS 
attached  to  V  the  statement  following  >  is  executed  next  If  execution  of  5  completes  without 
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raising  in  rur|ilion  the  attached  handlers  are  not  executed 

An  exception  raised  inside  a  handlrr  IS  treated  the  same  it  any  other  exception  control  passes 
ro  the  loses*  handler  for  that  except ion  Note  that  anrxcrption  raised  in  some  handlrr  attached  to 
S  cannot  t*e  handled  hy  an*  handlrr  attached  to  5.  either  the  exception  it  handled  within  the 
handler  or  it  it  han  tied  h>  torte  handler  attached  to  a  statement  containing  X 
Hr  now  conoder  the  formt  of  handler!  in  more  detail  1  he  form 
when  name  ...  |  (  decl  ....  I  J  hod* 

it  uce!  to  handle  exception*  with  the  given  names  when  the  exception  tetulti  are  of  interetl  1  he 
optional  de  luel  varuhlec  whu  h  arr  W*  al  to  the  handler  are  attigned  the  exception  remit!  before 
rhe  hod*  it  rsesu'el  fvrr*  exception  potentially  handled  by  thn  form  mutt  have  the  same 
number  •  •ecul’c  as  there  are  felared  tanahlec  and  the  type*  of  the  remit!  mutt  equal  the  type! 
ol  the  variables  The  lorm 

when  name  ...  t  •  I  fxxl* 

hanllec  all  exception!  with  the  given  names  rrgardlrst  erf  whether  ot  not  there  are  exception 
remit c  an*  a  ual  reculrc  ate  discarded  Hence  exceptions  with  differing  numbers  and  typei  of 
remit!  tan  he  handle-1  together 
The  I orm 

Other*  [  idri  t*pe  cjcec  '  J  hod* 

it  optional  and  muc  appear  lad  in  a  handle*  list  This  form  handles  an*  exception  not  handled 
h*  other  handlers  in  ’he  lot  If  a  variable  it  declared  il  muvl  he  of  type  atrlng  The  variable, 
whi  h  it  Ww  il  ro  -he  handler  it  asugnH  a  lower  cate  string  representing  the  actual  exception  name, 
any  results  are  discarded 

Note  •ha"  exception  results  are  ignored  when  matching  exceptions  to  handlers,  only  the  name! 

of  exceptions  a*e  use-1  Thus  the  following  is  illegal  in  that  Inttdiv  signals  ;ero  divide  without 

an*  reml't  but  the  <  loirs’  handler  hat  a  declared  variable 

begin 
y  Int  •  0 
x  Int  *  W  y 

pacer  t  when  re  ro  divide  t ;  Int  return  end 
end 

except  when  rero  livide  return  end 

An  invocation  nred  not  he  sutrrainded  h>  except  statements  that  handle  all  potential 
exceptions  This  policy  was  adopted  because  in  man*  cases  the  programmer  can  prove  that  a 
particular  exception  will  not  arise  Tor  eaamplr  the  invocation  Inttdivtx,  1  will  never  signal 
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rero  divide  However  this  polity  does  lead  lo  the  possibility  that  some  invocation  may  raise  an 
exception  for  which  there  is  no  handler  To  avoid  this  situation,  every  routine  body  is  contained 
implicitly  in  an  except  statement  of  the  form 
begin  icuti  nr  fvxfy  end 

except  when  failure  <s  string1  signal  f allure's! 

others  <s  string1  signal  f  ailuie<*unhandled  exception  *  H  s> 

end 

Failure  exceptions  are  propagated  unchanged  an  exception  named  name  becomes 
f aihirei 'unhandlrd  exception  naeir*! 

12.3  Resign*!  Statement 

*  re  signal  statement  is  a  syntactically  abbreviated  form  of  exception  handling 
statement  resignal  name  .  ... 

F.ach  name  listed  must  he  distinct  md  rich  must  be  either  one  of  the  condition  names  listed  in  the 
routine  heading  or  lu’f  T  hr  resignal  statement  acts  like  an  except  statement  containing  a 
handler  for  each  condition  named  where  each  handler  simply  signals  that  exception  with  exactly 
the  same  results  Thus  if  the  reslgnal  clause  names  an  exception  specification  in  the  routine 
heading  of  the  fcsrm 

name*  T  . . Tn> 

then  effectively  there  is  a  handler  of  the  form 

when  name  <\|  Ti.  ....  xn  Tn*  signal  name's]  ....  xn' 

As  for  an  explicit  handler  of  this  form  every  exception  potentially  handled  by  this  implicit  handler 
must  have  the  tame  nunf>er  of  rruilrt  as  declared  in  the  exception  specification,  and  the  types  of 
the  results  must  equal  the  types  listed  in  the  exception  specification 

As  a  simple  ex  ample  if  a  routine  has  a  signals  clause  of  the  form 
signals  <  underflow  overflowl 

then 

x  real  -  1  14  I*"**  •  y  •  y 

reslgnal  underflow,  overflow 


It  equivalent  lo 
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x  real  •  A  MIW  •  y  •  y 

except  when  underflow  signal  underflow 
when  overflow  signal  overflow 
end 

12.4  Exit.  Statement 

A  !(\<i I  transfer  of  control  itn  he  eftested  hy  using  an  exit  statement.  which  has  the  form 
exit  name  [  (  expression  ,  ...  *  ] 

An  exit  statement  is  similar  lo  a  signal  statement  except  that  where  the  signal  statement  ugnali 
an  exception  to  the  ,a//inj  rcxitine  the  exit  statement  ranri  the  exception  directly  in  the  currenf 
r online  An  exception  raised  hy  an  exit  sta'ement  must  he  handled  (explicitly!  hy  a  containing 
except  stx'erxent  wrh  a  handler  of  the  form 
when  name  ...  [  <  ded  ...  I  j  holy 

As  usual  rhe  types  n'  ’he  expressions  in  the  exit  statement  must  equal  the  types  of  the  variables 

declared  in  the  handler  The  handler  must  he  an  explicit  one.  le  exits  to  the  implicit  handlers  of 

re  signal  sta'ement  t  or  to  the  impli  it  '  si.'u’r  handler  enc  losing  a  r  osjtine  t»o1y  are  illegal 

T  he  exit  slatemen’  and  the  signal  sta’ement  mesh  nicely  to  form  a  uniform  mechanism  T  he 

signal  statement  an  he  viewed  simply  as  terminating  a  routine  activation,  an  exit  is  then 

performed  at  the  j»oint  of  mvoation  in  the  caller  'Because  this  exit  is  implicit,  it  is  not  subject  to 

the  restru  '.ions  on  ex  its  Its’ed  atmve  I 

T  he  following  is  a  simple  ex  ample  of  the  use  of  exits  in  search  loops 

eh  T 
begin 

foe  eh  In  array!  T  'Telemen's  x  ’  do 
If  spe  cal'elr'  then  exit  found  end 
end 

eh  .  male  new  one*  I  \  ISidnt  find  one  so  male  one  up 
end  except  when  found  end 

\  At  this  point  we  have  an  obpt  and  we  don't  care  how  we  got  tt 

12.5  Example 

W>  now  presen’  an  example  demons’?  at  mg  the  use  of  exception  handlers  We  will  write  a 
procedure  in-s  tfreci’-r  whi.h  reads  a  sequence  of  signed  decimal  integers  from  a  character  stream 
and  rerurns  the  sum  of  those  m’egers  The  stream  is  viewed  as  containing  a  sequence  of  fields 
separated  h»  spares  each  field  mis'  consist  of  a  non  empty  sequence  of  digits  optionally  preceded 
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by  a  single  minus  sign  5un  itrram  has  (hr  lor m 

sum  stream  -  proc  (s  stteam'  return*  (Int  signal*  (overflow. 

unrepresentable  integer* string' 
bad  f ormat< string" 


and  sum  strram 

Sun.lCnn  signals  overflow  if  the  sum  of  the  numbers  or  an  intermediate  mm  ts  outside  the 

implemented  range  of  integers  Unrepresentable  intrgff  is  signalled  if  Ihe  stream  contains  an 

individual  number  that  is  outside  the  implemented  range  of  integers  Bad  format  is  signalled  if 

the  stream  contains  a  f  ield  that  is  not  an  integer 

We  will  use  the  gcf,  ojiera’ion  of  the  ifre^-.  data  t>|>e  t  see  ^[scndiv  III',  whose  type  is 

proctvpe  slteam1  returns  char  signals  ers  t  sif  file  not  possible*  string  ‘ 

This  operation  re'urns  (he  ries'  ha'a  -er  town  the  s (ream  unless  the  stream  is  rnspty,  in  which 

case  end  of  file  is  signalled  Not  {sensible  u  si,  nallet  if  Ihe  operation  cannot  be  jserfnrmed  on  the 

givers  stream  e,  i1  n  an  output  stream  o'  'res  not  alios*  rharacter  ojserations  etc  I  We  will 

assume  that  we  jt  given  a  stream  for  which  (tit  is  always  possible 

I  he  f  ollnw  mg  prr*  edurr  is  used  to  ton  vert  <  ha  tat  tet  strings  to  integers 

s?i  -  proc's  string  returns  int  signals  1  ms  slid  <  hara<  ter*  char'. 

badfotmat 

unrepresentable  integer) 


end  s2l 

5.1  signals  invalid  rhararter  if  its  string  argument  contains  a  tharatlet  other  than  a  digit  or  a 
minus  sign  Ba  t  forma'  is  signalle-t  if  the  string  rontains  a  minus  sign  following  a  digit,  more 
than  one  minus  sign  or  no  di,  ifs  I  lnrrp>rsenfahlr  rn:eger  is  signalled  if  the  string  represents  an 
Integer  that  is  outside  the  implenen'rd  range  of  integers 

An  implementation  of  tit"',  i M««i  is  presented  in  figure  S  There  are  two  lonps  within  an 
infim'e  loop  one  to  slip  spaies  and  one  ’o  atrumulatr  digits  for  conversion  to  a  number  Notice 
the  placement  of  the  inner  end  of  file  handler  If  end  of  file  is  raised  in  the  serond  inner  loop, 
then  the  sum  is  computed  rorrntly  and  the  first  invmation  of  UrramiffU  will  again  raise 
end  of  file  This  time  hnweser  the  infinite  Imp  is  terminated  and  esecutioo  transfers  to  the 
other  end  of  file  handler  which  then  returns  the  amimulated  turn 

We  have  placed  the  remaining  reception  handlers  outside  of  the  infinite  loop  to  avoid 
cluttering  up  the  mam  part  of  the  algorithm  lach  of  these  exception  handlers  could  also  have 
been  placed  after  the  particular  statement  containing  the  invocation  that  signalled  the 
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Fig  5  T'hr  turn  stream  ptixedute 

mm  stream  .  p  roc  v  stream'  re  turn*  Ont  signal!  overflow 

unrepresentable  integer! atrlng', 
hid  formAKatrlng'i 

Him  mt  -  0 

nun  string 
while  true  do 

\  slipover  i|ii  m  between  v aloes  sum  it  valid.  num  it  meaningless 

t  char  -  stream!, -ef  s' 

while  .  -  do 

(  -  slrrjm!grt(t  s' 

end 

\  rri  !  i  value  mini  a  simulates  nr»  number.  sum  hnonei  previous  sum 
num  •  ** 
while  i  ' -  do 

num  -  string! append1  num  c> 

t  -  srreamtgetr<»l 

end 

ricepl  when  end  of  file  end 

\  restore  sum  to  v  ah  lily 
sum  -  sum  •  s2H  nuns' 

end 

e  xr  epl  when  en  !  o'  file  returresum 

when  un-rfr  enable  in.'r,er  signal  unrepresentable  mlrger<num' 
when  hi  I  fi'M-u'  in  »  slid  hi’idef  't  signal  hid  f  or  nil1  num' 
when  m  er  f  to*  signal  o» er f  low 
end 

end  sum  s’>eam 


tor  respond  in,-  eaiep'mn  The  i  form  is  used  in  the  handler  f of  fhe  had  format  and 
invalid  ihirj  e-  es  ep't  >ns  sin  e  the  exception  results  are  not  used  Nme  Ihal  the  overflow 
handler  a’  hes  e.  ep’iont  signalled  hi  ’he  mtfadd  pfmedure,  which  is  involesl  using  the  infix  * 
mti’inn  Nr ve  alto  rha'  in  ’hr  r >  ample  all  of  fhe  exceptions  raised  by  ru"l  U*r-in  originate  at 
o  ep'ioni  si,  nailed  hi  h.r-  le  .  el  mrv'nles  Sum  stream  simply  reflerts  these  etieptions  upwards 
in  y-ns  ’ha’  a-e  r'inir.  'ill  •  -  if.  alle-s  M'hough  some  of  the  names  may  he  unchanged  ihe 
rveanrn,  ••  n<  -he  r,  ej  • .  .o,  an  ‘  e.en  ’he  nurdrer  of  reuihs'  are  different  in  Ihe  two  levels 

^s  mentioned  ah  .e  w <-  hi.r  attiimel  r,  neve'  signals  not  possihle,  if  it  does,  then 

Ill’S  ifrern  will  te'mma’e  raising  fhe  exception 

f  aihrrr- "unhan  fled  ei  rp’inn  nor  possible*' 
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13.  Modules 

A  (  1  II  program  consists  of  a  group  of  modules  Three  kinds  of  modules  are  provided,  one 
for  eji  h  k  md  of  abstraction  we  have  found  10  t*e  usef  ul  in  program  construction 
module  s  |  equate  j>  procedure 

|  {  equate  }  iterator 

|  {  equate  J  cluster 

Procedures  support  procedural  abstraction  iterators  support  tuntrol  abstraction,  and  clusters 
support  data  abstraction 

A  nwliile  defines  a  nrv  s  .<j>e  I  he  iden'ifiets  introduced  in  the  equates  < if  any>  and  the 
identifie'  m  run,;  'he  at'tt'4  ion  tbe  “•«<:.  t  ~:-.r  a'e  k  ■  a  t  to  that  s<  nj>e  land  therefore  may  not 
l>e  redefined  in  an  mne’  uoyw  Abc"i  tions  implemented  by  other  modules  are  referred  to  by 
using  nun  lev  at  identif  ter s  I  he  syc'rm  will  provide  some  means  of  determining  what  abstractions 
are  meant  by  f  hece  non  l<»  a  I  it  erst  if  ie-  s  one  sci'  h  nse  hanism  is  ‘ef  ined  in  Sect  lews  1 

The  ei  1  stefs-  e  of  an  ecternall,  established  meaning  for  an  identifier  dors  not  preclude  a  local 
definition  for  that  identifier  Within  a  mc*1ule  any  identifier  may  be  used  in  a  purely  local 
fashion  or  in  a  purely  non  lr»  al  fashion  but  no  identifier  may  be  used  in  both  ways 
f  cample  programs  apf>ear  in  Apjiendit  |V 

13.1  Procedures 

A  procedure  pe-formc  an  a'tiiws  on  ;e» o  nr  note  or and  terminates  returning  jrro  or 
more  reiu/fi  A  prevedu’e  supports  a  f’nrJii'a!  «fif»acfipn  a  mapping  from  a  set  of  input 
ob fee's  to  a  set  of  result  objects  with  possible  modification  of  some  of  the  input  objects  A 
prnrednre  may  terminate  in  one  of  a  number  of  (cnrhticni  one  of  these  11  the  Ticiwia]  <e"iiiltlpn, 
while  others  a»e  r\ ,  t  Afn-e  1/  irne/ilirii  Differing  numbers  and  types  of  results  may  he  returned  in 
the  different  rondittont 

The  form  of  a  procedure  it 

Idn  -  proc  [  parms  J  argt  |  returns  |  [  signals  j  [  where  j 
rnutine  heady 
•  nd  idn 


where 
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sm 


args 

■ 

<  [  dec!  .  ...  J  > 

returns 

= 

returns  <  t*j>e  spet 

signals 

s 

signals  *  etc rpfion 

esteption 

X 

nait*e  f  •  !*}>e  spec 

routine  fwvly 

z 

{  equate  ^ 

^  own  var  } 

|  statement  } 

In  !hn  ■.i"'i<m  we  livim  mm  pararte'enfed  procedures  f of  a  mm  parameterized  procedure, 
(hr  M'».  in  !  where  lauset  a'e  mimn,  Parameterized  modules  are  discussed  in  Settlor*  IM 
<  >wn  variables  a-r  dm  uuel  in  'ir  lion  I t  *< 

J  he  beading  of  J  p'lieluir  describes  'fir  «n  in  nhr  h  the  |  'ocedure  lomrouniiates  with  Itl 
i  *  Hr  •  I  hr  :»ri  i .  Imte  spec  if  tes  the  nnmfxr  order .  and  types  of  arguments  required  to  invok  e  the 
procedure  while  'fir  return*  Ijine  qw~i'irs  the  number  order,  and  tyjcrs  of  results  returned  w  hen 
ifie  ptiaediite  terminates  normally  '  f*  *  e  ter  tiling  4  return  statement  or  reaching  the  end  of  It* 
Im»1*  A  missing  returns  lause  mdn  <'ri  'hi'  no  r  e  mi  I*  \  are  returned 

I  he  signals  Itusc*  namei  *hr  r%  rptnmal  im-litions  in  w hi  h  the  procedure  tan  terminate 
and  tf»e<  i'  in  'hr  nurihe-  or  ! r-  and  tc^so*  teuift  o returned  in  rath  condition  In  addition 
to  t he  imdi'K  ot  rsplfi'l*  mrir1  m  'hr  si.nals  lautr  an*  procedure  tan  terminate  in  the  failutt 
(rm ‘unm  I  hr  <  •  :.•/  •nditmn  'r'lmi  m'h  on'  reuift  a  string  object  All  name*  of  exceptions 
in  t hr  signals  laiive  mutt  l*e  tntm  '  an  !  n<mr  can  f>e  failuit 

A  nrot  edii’e  n  an  iif>  jr-  •  o'  procedure  '*[»e  f  01  a  non  parameterized  procedure  this 

l*pe  it  derive-'  trnm  'hr  procedure  heading  h*  removing  ihe  procedure  name  rewriting  the  formal 
a'gument  dr  li'i'inm  with  ime  i.ft  pr-  cfn  deleting  the  nanei  of  formal  argumentt  and  finally, 
replacing  proc  h*  prortype 

At  wat  dii/iiiied  in  “.r'lim  11  'he  invocation  of  a  procedure  cautet  the  introduction  of  the 
formal  va-iables  and  'he  at’iial  a' g urvn’t  are  assigned  to  thece  variahlet  Then  the  procedure 
h.»1»  it  eve  uted  I  secufmn  re-mina'rs  when  a  return  statement  or  a  signal  statement  is  executed, 
or  when  ’he  'rvtinl  end  of  'hr  hc»1y  it  reached  If  a  p'esedure  that  thosild  return  results  reaches 
the  tevttial  end  of  the  Uvt*  ihe  procedure  te'mina'es  in  the  -OnditKm 
faihiret’nn  return  vahies*f 

A’  '  er  min  a  1  inn  the  result  oh  jet's  if  an*  are  pat  tad  had  to  the  invoker  of  the  proredtlte 
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T  hr  it/n  following  thr  end  of  the  procedure  muu  be  (hr  urn  as  (hr  tdn  naming  the 
procedure 

Enmpln  of  procedure*  air  given  in  Appmdi*  IV 

13.2  Iterators 

An  iterator  compute*  a  trijurtnr  of  item  on r  urn  a(  a  time  where  an  ilrm  it  a  group  of  trio 
or  more  ohjrctt  In  (hr  generation  of  *uch  a  vr^urmr  ihr  computation  of  rath  item  of  (hr 
vrqurmr  n  uuially  controlled  by  information  about  what  prrviou*  item*  havr  l>mi  produced  Such 
inf  Of  mar  ion  and  thr  way  it  control*  thr  prnducrion  of  itrmt  i*  local  to  thr  itrralor  The  uvrr  of  thr 
itrtator  n  no*  concerned  with  h<rw  thr  I'nni  arr  prorlucrd.  f>ut  limply  uirt  thrm  (through  thr  for 
itatrmrnt'  a*  they  arr  prodm  rd  T  hut  thr  Krra'or  abctractt  f  rom  thr  detail*  of  how  thr  production 
of  thr  itrmi  i*  controlled.  for  thn  rrawm  wr  lonudri  an  itrralor  to  implement  a  control  abvtraction 
Itrratori  a’r  particularly  uirful  a*  operation*  of  data  attraction*  that  arr  collection*  of  object* 
•  r  g  .  *rt  *'  *i  n>  r  *  hr  >  may  produ  r  thr  ob  ym  in  a  entire  t  ion  without  rrvraling  how  thr  collection  It 
reprecented 

An  irr*ator  hai  thr  form 

tdn  -  Iter  [  parmt  ]  argi  [  yirldi  J  ^  ugnah  ]  [  there  ] 
routine  body 

end  i<1n 

where 

yield*  s  yield*  1  tyjie  ipec  ...  > 

In  thu  ire  l ion  wr  dtutm  non  par  ameteri/ed  ilrratort.  in  whnh  thr  fNj'm  and  where  ctauir*  arr 
mmmg  Parametertied  module*  arr  divuued  in  Section  |1  f  Own  vanahtre  are  diuutted  in 
Section  17  A 

Thr  form  of  an  itrra'or  n  vrty  iimdar  to  thr  form  of  a  procedure  There  are  only  two 
dlf  f  erm*  n 

I  An  iterator  hai  a  yield*  ilauie  in  lie  heading  in  place  of  thr  return* 
clauie  of  a  prorrdurr  Thr  yield*  (lame  cpecifiei  thr  number,  order, 
and  typei  of  object*  yielded  rath  time  thr  iterator  produce*  thr  ne*t 
item  in  thr  vecyoenre  If  jrro  nbjrct*  arr  yielded,  then  the  yields  clauie 

it  omitted 

?  Within  thr  iterator  body  thr  yield  itatrmrnt  it  utrd  to  pretent  the  ne*t 
item  in  the  ce.pienrr  An  iterator  terminate*  in  the  vame  manner  a*  a 
procedure  (note  that  it  may  not  return  any  re*ult*> 
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An  Hrtatoi  is  in  objrrt  of  tomp  itrtaior  t*pr  III  typp  can  dpfivpd  from  m  hpading  by 
r rt’iov mg  (hr  iterator  name.  irwriting  the  formal  argument  drdilllKini  with  one  idi  j>er  dfd. 
deleting  the  formal  argument  namri  and  fmallr  replacing  ll»r  hi  Itprtyp* 

An  iterator  un  bp  invoked  only  f>»  a  for  itatrmmt  7  bp  execution  of  Iterators  ll  described  In 
Seition  IIS? 

An  example  of  an  iterator  n 

tplits  -  Itpr  1  \  string  ylplds  string  string 

for  i  int  In  Inti'tom  to"  string! hip  s>  do 

yiplrt  string! iubvtr‘1  I  i>  stringimlH.  i  •  l>> 
end 

end  iplitl 

Additional  ri  imnlo  ol  Hr  r  a  lor  i  at  r  ,■  ivpo  in  Ibr  next  in  lion 


Rpmark  s 

lip’afori  provide  a  useful  nr  bannri  I  o'  abstracting  from  ibr  derails  of  control  1  urthermore, 
l  hr  *  for  nirnm'i  to  I'ni'r  over  thr  objnts  of  Intrrpvl.  ralbrr  than  requiring  a  mapping 

f  rom  tbr  integers  lo  thmr  oh|n  'i 

ll  ii  important  to  trail  ;r  tba'  thr  a'rtimml  ohjnti  patted  lo  Ibr  itrrator  arp  alio  accrmhlr  in 
tbr  fw*1y  1*  'hr  for  t-»-p  .<n'  fir'd  h .  'hr  I'r’a'or  If  lomp  ifpinrrt !  object  ll  mutable  and  (bp 

itpr  a'or  modii  in  it  'hr  hangr  an  a" p<:  ibr  brha» tor  of  Ihp  foe  loop  body,  and  vicp  vpr sa  Such 
changet  m  hr  'hr  laiiw  o'  prof  t am  p* tor i 

Ai  a  ,ror-il  prin  iplr  an  t'r-i'o>  should  tint  mr»1if»  iti  atfiimrn!  objnts  7  brrP  arp  lomf 
r\  amplei  howrvev  tahr-r  rv»f  if  i>  at  ion  n  appropriate  lor  namplr  an  ilpralof  Ibal  producPi  thp 
<ha'i  ’r*i  from  an  input  t’'rim  wookf  advan  r  'Sr  itrram  window  llbf  Clirfpnily  atCPlllblp 
cbatac'Pft  on  racb  ttrration 

Alio  at  a  i'rnr*al  principlp  ’hr  for  l**ip  bnd>  should  not  mrvlify  rbr  itpralors  argumpnt 
obr-ti  A,  am  r»  asional  raamplrt  ran*  whr-r  modif iraiion  it  drtirablr  In  programr  .ng  such 
examples  ’hr  programmer  must  rnturr  that  tbr  I'nator  will  Will  brhavp  correctly  in  spilp  of  thp 
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13.3  Cluster* 

A  i luttrf  it  used  to  implement  x  new  data  tyj>e.  distinct  from  any  ocher  built  in  ot  user  defined 
data  type  A  data  tyjvr  <or  data  abstraction1  consists  of  a  vet  of  otojrds  and  a  let  of  pnmitive 
operations  The  primitive  operation!  provide  the  most  basic  ways  of  manipulating  the  objects, 
lilt ir lately  every  action  that  can  he  performer!  on  the  ohjrdl  must  be  expressed  in  terms  of  the 
primitive  ojieralions  Thus  the  primitive  operation!  define  the  lowest  level  of  obiervable  object 
l»eha  vior 

The  form  of  a  cluster  is 

idn  -  cluster  [  parms  ]  la  idn  .  ...  [  where  ] 
c hater  body 
end  idn 

where 

duster  bexly  x  ^  equate  }  rep  •  type  sjsec  {  equate  } 

^  own  var  } 
routine  {  routine  } 

routine  x  proredure 

|  iterator 

In  this  section  we  diuuci  non  paramrtrrtrH  tluvien,  in  which  the  J*ar*i  and  where  clauiei  are 
muting  rarametenred  module!  are  discussed  in  Section  PI  Own  variable!  are  discussed  In 
Section  P  A 

The  primitive  operations  arr  name!  by  the  list  of  idni  following  the  reserved  word  la  All  of 
the  idni  in  this  lul  mint  he  distinct 

Todefine  a  new  da’a  !vj>e  it  u  no essar y  to  choose  a  ccniretf  rrf>rrt/riraticn  for  the  objects  of 
the  type  T  he  spenal  equate 
rep  -  type  spec 

within  the  r  luster  brwly  identifies  ty  fv  :  f>e  as  the  concrete  representation  Within  the  cluster,  rep 
may  he  used  as  an  abbreviation  for  type  r^ei 

The  identifier  naming  the  duller  is  available  for  use  m  the  duster  body  Use  of  this 
Identifier  within  the  rluster  body  permits  the  definition  of  mursiye  types  <an  example  Is  given 
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In  addition  to  specifying  the  representation  ol  objects  the  cluster  mult  implement  the  primitive 
operations  ol  the  type  1  hr  ope'sliom  may  he  nthrr  procedural  or  control  abstractions.  they  are 
impiriorn  rd  hy  pruceduies  and  iteratois  respectively  Molt  of  the  routines  in  the  cluster  body 
tie*  inr  the  primitive  operations  (those  whole  namei  are  luted  in  the  cluster  heading)  Any 
i  d<  1  it  tonal  routine!  j’r  Aide  fen  thry  are  private  to  the  duller  and  may  not  be  invoked  by  useri  of 
the  abstract  tyjx  Ml  'he  routines  mult  he  nirned  by  distinct  identifien  the  itnjv  of  theie 
identilien  ii  the  entire  duller 

•  hllude  the  luster  the  tyjx's  tibp'i  may  only  lx  treated  abstractly  <|e  manipulated  by  using 
the  primitive  operations)  To  implement  the  ojxrations  however,  it  n  uiually  neienary  to 
manipulate  the  < »♦> ym  •  i  m  inim  ol  ihnr -  natim  reprewManan  It  n  alio  ooaviwonl  sometimes  to 

manipulate  'he  c^by-ts  ihstraMly  Theteio-r  inudr  tne  diner  i:  n  pmubW-  in  >ir«  the  type’i 
objects  ei'her  ahitrartly  or  in  term  ol  their  representation  The  syntas  li  defined  to  specify 
unambiguously  I  or  ei  h  y  ar  lahle  that  trier  i  to  one  ol  the  type'i  objects.  whu  h  view  u  being  taken 
Thill  inude  a  rhnter  named  T.  a  dedaration 
v  T 

mdi'  a'ei  tha'  the  (rb  /r-  t  referred  to  hy  r  n  to  lx  "eated  ahltractly  while  a  declaration 
w  rep 

indii  a'ei  that  'he  ob  ye-  •  re*  errr  1  to  h*  v  u  t  lx  trea'ed  cone  rerely  T  wo  pr  imiti  vei  up  and  down. 

are  yvailible  for  ■  viver'irn  Ix'.een  her  >wn  [xunti  of  >  iew  I  h'  uie  of  ur  jxrmits  a  type  rap 

object  to  be  viewed  abstractly  while  down  jx-miti  an  abitracl  object  to  he  viewed  concretely  For 

eaample  given  fhe  dec  Ur  ationi  ahoi  e  'he  following  two  acugnrxnri  ate  leyal 

v  •  up"  w> 
w  -  down  v  * 

Onlv  rou'tnei  inside  a  hire-  may  ire  up  ant  down  S  ee  tha'  up  and  down  are  tiled  rrx’ely  to 
inform  the  tompiler  'ha'  'he  of  jr-t  n  ,  n,-  m  (x  ixwel  abstractly  or  concretely  rrspectiv  ely 

A  common  pla  e  whe-e  the  iew  of  in  o*  jr  '  hinges  it  at  the  mtetfare  to  one  of  the  lype'l 
ope'ationi  the  uie>  pf  toti'sr  vie.t  'he  object  abs'rjtly  while  inude  the  opetation.  the  object  ii 
v  tewed  concretely  To  fa  ilitate  thn  usacr  a  ipetial  tyjx  specification  evl  ii  provided  The  uie 
o‘  evt  n  reirricted  to  'he  relurni  yields  and  signal*  dauiri  of  routinei  inude  a  chiller,  and 
may  he  uird  at  'he  'op  leiel  only  'r  g  array!  evt  n  illey  ah  When  used  inilde  the  cjrgi  clause.  It 
meam  rhat  the  view  o'  the  argument  objr  t  changes  from  abitracl  to  concrete  when  il  n  assigned 
ro  the  formal  argument  va»iah)e  When  evt  n  uird  in  the  returns  yields  or  signal*  clause.  It 
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mfint  the  view  o(  the  result  object  changes  from  concrete  lo  abstract  as  it  is  returned  (or  yielded) 
to  thr  caller  I  hut  cvt  means  abstract  outsidr,  concrete  inside  when  constructing  thr  type  of  a 
routine  cvt  is  equivalent  to  thr  abstract  type.  but  »hm  type  checking  thr  body  of  a  routine.  cvt  is 
equivalent  to  thr  representation  type 

Thr  cvt  form  dors  not  introduce  an y  new  ability  ovrr  what  is  provided  by  up  and  down  It 
is  mrrrlv  a  shorthand  for  a  common  casr  In  its  absence,  thr  heading  of  each  routine  would  have 
to  be  wr ii'rn  using  thr  abstract  typr  in  place  of  cvt  I  hm  inside  thr  routine,  additional  variables 
of  type  rep  would  f*r  declared  thr  argument  cibjrcts  assigned  to  these  variables  using  down  and 
each  return  yield  or  signal  statement  wcnjld  use  up  explicitly  The  use  of  cvt  simply  causes  the 
appropriate  up  or  down  to  be  fsertormrd  automatically  and  avoids  the  declaration  of  additional 
variables 

I  he  rvfse  of  each  routine  is  derived  Irons  its  heading  in  the  usual  manner,  excrpl  that  each 
occurrence  of  cvt  is  replaced  hy  (he  abstract  type 

Insufe  'he  chisier  it  is  not  necessary  to  use  the  compound  form  (fyfv  igvc'ie^  name)  for 
namini;  W«  ally  defined  routinec  furthremore  thr  compound  form  cannot  be  used  for  invoking 
hidden  routines 

The  idri  .  eT  following  the  end  must  nu'<h  the  identifier  naming  the  cluster 
Some  rs amples  c*f  clusters  are  shown  in  figures  The  first  example  implements  (part  of)  a 
complex  number  data  tyjw  T  his  data  txfw  i  cat  he  implemented  using  either  *  and  y  coordinates, 
or  rhn  and  theta  coordinates,  the  clutter  shown  uses  s  and  y  coordinates  Nrrte  that  the  create. 
fft  x  and  ( t I  y  ngserations  might  signal  an  exception  if  rhor'lhe'a  coordinates  were  used,  therefore 
rhese  exceptions  are  listed  in  ’he  headings  esen  though  in  this  implementation  the  exceptions  will 
not  be  signalled  The  coordmaes  of  a  complex  number  can  be  queried  using  the  grf  operations 
explicitly  or  by  using  the  special  srntax  f  f> 
a  fhera 

No  irf  operations  are  provided  since  complex  pc  |>ert  should  be  immutable  like  other  numbers 
I  Integers,  reals,  e*  )  Other  opera  cone  on  complex  numbers  are  the  usual  arrlhmetic  ones  (only  add 
is  shown'  and  egua/  and  rrfy  'these  are  discussed  in  the  remarls  section  below'  (Nole  we 

have  assumeef  fhar  i ifvtf’c  'ixrv  an  f  a'cfaegenf exist  in  the  library  > 

T  he  second  example  chiller  implements  lists  of  integers  These  lists  are  immutable,  like  pnte 
lure  in  I  ISP  The  implement  arum  is  recursive  rhe  representation  type  refers  fo  Ihe  abstract  lype 
Notice  the  r/e«tr*ift  operation  which  produces  all  integers  in  the  list  in  order.  II  Is  an  example  of  a 
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recursive  iterator 

I  hr  final  example  is  sr's  of  integers  I  hr  sets  are  mutable  operations  imrrf  and  drift! 
mod  if  y  sets  A,  am  note  ihr  r/ctenf]  iterator  which  produces  all  elements  of  a  set  in  wunr 
unsprc  if  ird  ordrr  Also  note  thr  u>r  of  11  in  in  insrif.  since  If  in  requires  an  abstract  object  as  Its 
argument  up  is  used  to  providr  onr 

Remark  t 

1  hr  main  reison  (  I  I!  wcs  leveloped  *  as  to  support  thr  tisr  of  data  abstractions  Usr  of  data 
abstr  i  ’ions  Ira  Is  to  an  oh  jr<  t  oriented  st,l«-  of  programming  in  which  concerns  about  data  are 
prim.i'y  in  f  sr’vr  to  ot|  antre  program  st’uiturr  It  requires  somr  effort  to  learn  to  program  in 
rhis  s’yle  f.iit  thr  rifort  is  worthwhilr  hr  aiise  thr  resulting  programs  ate  more  modular.  and  easier 
to  mcvlify  and  maintain 

A  i  lustre  prrmits  ill  knowledge  about  how  a  data  abstraction  is  being  implrmentrd  to  be  kept 
k»  al  to  thr  lus’rt  I  his  l<»  alira'ioo  prt mits  thr  cor  te>  fness  of  an  implementation  to  (>e  established 
h»  n  amimng  thr  his’r-  alone  Pa-’  o'  such  a  arte. ’ness  proof  invcilves  showing  that  only  legal 
’rptrsm’  a’mos  a’r  ,  nir-a’rt  to  ’hr  lusr>  for  riamptr  in  thr  ml  i ft  cluster  afmve  not  all 
arrays  a-r  lr,  al  r:  represen' a 'ions  mill  those  without  duplicate  elements  are  legal 

Information  about  whs'  nm'i'ii'es  a  lr,  al  rrp'rsrn'aticm  is  described  during  program  verification 
h*  s'atin,  thr  •-  :r  :•  :-r  I  a  h  of>efa’ion  must  presr-se  this  invariant  few  rath  object  that 
it  manipulates  if  'hr  al  s’’  «  •  .pr  1  his  rrqurement  applies  at  all  return  and  ilgnal  statrosents 
in  operations  and  also  a’  yield  s'atemrn't  m  rr-ator  operations 

When  fr'inin,  a  new  ta'a  ’>pr  it  is  inpofant  to  provide  a  set  of  primitive  oyierationi 
suf  f  ii  irn'  to  pe'mit  all  m’r-rs-ir  .  manipulations  of  'hr  ohjr-ts  There  is  no  rrason  to  attempt  to 
define  a  minimal  set  howrsrt  f  rrqurntly  usel  operations  can  t*r  made  njieiations  of  the  cluster 
even  |f  lhr>  rrwjlif  f>e  implrmen’rd  in  terms  of  other  notations 

•  kper  a' t»ws  s  'hat  will  frequently  be  required  a-r  ,*  f-*  r^uu/.  and  r  mi/fi'  These  alterations  are 
ncr'r!  if  ’hr  type  hem,  defined  is  in'enle-f  f o’  general  use  sinte  without  these  operations,  the  use 
of  the  -ype  within  another  lip  t  oncre’e  representation  is  somewhat  limited  for  example, 
»rr«y<  T ’t'oyty  innev  f*e  used  unless  T  has  a  crpy  operation  In  addiltcwv  most  types  should 
provide  I/O  of<e'atinns  as  discussed  in  Appendix  III 
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Ftg.  a  Fx  ample  (  UiMrr \ 

complex  -  cluster  Is  cteate.  add  get  x.  get  y.  get  rho  get  iheta  equal,  similar,  copy 
rep  -  struct!  x  y  real] 

trratr  -  proc  lx  y  real1  returns  (cvt>  signals  (overflow.  underflow* 
return*  repl  i  x  x  y  y!) 
end  <  rratr 

add  -  proc  'a  t>  cvt'  returns  'cvt'  signals  'overflow,  undrrl  kind 
returrvrept'.x  a  x  •  b  x.  y  a  y  ♦  b  yl> 
reslgnal  overflow  underflow 
end  add 

get  x  .  proc  c  cvt1  returns 'real  signals  (over!  low  underflow) 
return*!  x» 
end  get  x 

get  y  -  proc  ic  c  vt>  re  turns  *  real  signals  <ovn  f  low  under  f  kiwi 
return* r  yl 
end  get  y 

get  rho  -  proc  1  cvt  returns  real'  signals  'overflow  underflow) 
return*  square  ront'c  x  •  t  x  »  c  y  •  c  y>) 
reslgnal  overflow  underflow 
end  get  rho 

get  theta  -  proc  '  cvt  returns  real  signals  < overt krw  underflow) 
return*  arctangent?)!  x  c  y1* 
resignal  overflow  underflow 
end  get  theta 

t  Note  -hat  the  equal  operarinn  of  the  rrp  type  tests  equality  of  corresponding  real  components. 
X  not  identity  of  rep  objects 

equal  -  proc  <<l  c?  cvt1  returns  'bool1 
return'd  -  c?> 
end  equal 

similar  -  proc  (cl  c?  cvt1  returns  <boof’ 
return'd  -  c?> 
end  similar 

ropy  -  proc  <c  complex)  returns  (complex) 
return'd 
end  ropy 


end  complex 
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mt  list  -  cluster  is  crrate  tons  m.  edr.  is  in.  is  empty,  elements,  rsjual,  simitar,  copy 

rep  •  oneoflpan  pair  empty  null) 
pair  •  struct  it  int  edr  ini  list) 

t  tea'e  -  proc  O  returns  1  c  vt» 

return repkmake  rmpty'nll" 
end  create 

tom  -  proc  'i  Int  Is:  inf  list*  returns  <cvt 

return  replmake  paiflpauiicar  i.  (dr  1st!)) 
end  com 

car  -  proc  1st  evt  returns  int  signals  'empty! 
tage  ase  1st 

tag  pair  'p  pan'  returnpear' 
tag  rm|i  |  Signal  empty 
end 
end  tar 

edr  -  proc  Is’  evt  returns 'in:  list  signals 'empty' 
tage  ase  1st 

tag  pan  p  pair1  return- p  edr' 
tag  empty  signal  empty 
end 
end  edr 

is  in  -  proc  1st  evt  i  Int  returns  bool‘ 
while  true  do 
tage  ase  Is’ 

tag  empty  return  false 
tag  pair  ip  pan  1  If  p  car  •  i 

then  returntrnr 
else  1st  •  dowrVpcdr) 
end 

end 

end 

end  is  in 

is  empty  *  proc  Is:  evt  returns  'bool' 
return  repj is  rmpty'lst!' 
end  is  empty 


7B 


Clusters 


$U 1 


elements  -  Her  <lst  cvt1  yield*  tint* 
tagcase  1st 

tag  pair  <p  pair)  yleld'pcar* 

for  i  Int  In  elementslp  (dr)  do 
yield1  i> 
end 

fag  empty 
end 

end  elements 

1  No(f  that  the  equal  operation  of  the  rrp  tape  test »  equality  of  corresponding  list  elements.  not 
X  identity  of  tep  objects 

equal  -  proc  ■  1st  I  lu?  cvt*  return*  •  boot' 
return1 1st  I  -  1st?) 
end  equal 

similar  -  proc  *  1st  I  1st?  cvt  return*  boot* 
returrvlul  -  1st?) 
end  similar 

topy  -  proc  « 1st  int  list1  return*  <int  list) 
return1 1st' 
end  copy 

and  int  list 


Int  set  -  clutter  I*  <  reate  insert,  delete  is  in.  sue  elements,  equal  similar,  topy 

rep  -  arrayt  int) 

create  -  proc  ••  return*  tcvt' 
return1  reptnewtll 
end  create 

insert  -  proc  <»  cvt.  I  fnt' 

If  -  is  in<up‘s'.  I'  then  repladdWs.  i'  end 
end  insert 
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tlclelr  -  proc  <s  cvt.  I  tnt‘ 

for  )  Ini  In  replirulrvet<s'  do 
If  l  -  si  jl 

then  J  j)  -  reptiopU* 

replrcrnhltl 

return 

end 

end 

end  delete 

it  in  -  proc  <t  cvt  i  Int1  returns  'bool' 
for  (  Int  In  repirlrmrntt<ti  do 
if  i  -  |  then  return1  true'  end 
end 

return  f  else1 

end  it  in 

tire  -  proc  It  cvt*  returns  'Int' 
return  repttirr  t'l 
end  tire 

rlmwfilt  -  Iter  t  cvt  yields 'int1 

for  i  ml  In  replelrmentt't'  do 
yield'  i‘ 
end 

end  rlrnmit 

rrfual  -  proc  tl  tP  cvt  returns  bool 
return  tl  -  tP’ 
end  enlist 

ttmiUr  -  proc  t|  tP  int  set'  returns  bool 

If  sir*-  tl  '*  ti t?  then  returnfelse'  end 
for  i  Int  in  elements' t|t  do 

if  -  n  in  t?  |i  then  returnfelse'  end 
end 

return  true 

end  umilsf 

copy  *  proc  it  cvt'  returns  'cvt' 
return  repl* nfiy*  t'> 
end  tops 


end  int  te» 
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In  many  earlier  sections.  *r  have  discussed  the  use  of  special  syntactic  forms  for  invoking 
operations  and  have  tleunlxd  how  operations  muil  tx  named  and  defined  in  order  (o  nuke  uv  of 
these  forrm  I  he  use  of  such  forrm  is  quite  unconstrained  the  special  form  it  translated 

to  in  invocation.  and  it  legal  if  (he  iimninm  it  legal 

Our  reason  for  no<  impeding  more  syntactic  constraints  on  ojrenlor  overloading  is  Ihat  such 

constraints  only  capture  a  small  part  of  vhn  i(  meani  10  use  operator  overloading  coimtly  For 

example  to  overload  "-*  correctly  ’he  ryual  eijxration  should  lx  an  equivalence  relation  satisfying 
the  tuhitittitiiMi  prnfxrty  i  e  if  two  objects  are  rjual.  then  one  tan  lx  substituted  for  the  other 
without  any  detrciiblr  differenre  in  lxh.ivior  In  the  sertiom  where  special  syntactic  forms  are 
devritxd.  we  have  discussed  in  each  tax  what  constitutes  projxr  usage 

Overloading  operator  symbols  is  os*  the  only  pbie  where  care  must  lx  taken  to  ensure  that  the 
new  definition  agrees  with  common  usage  the  var-x  care  must  lx  taken  when  redefining  common 
nyxration  names  lor  es  ample  |.,e  f-y  e<pe'a’i"n  should  provide  a  "copy"  of  Its  input  object,  such 
that  subsequent  changes  mi  tr  to  ri'he-  the  (>td  or  the  new  object  do  not  affest  the  other  In  the 

rax  of  an  immutable  'yjx  hie  (  -ip/r»  eu-dvr  above  in  which  sharing  between  two  objects  will 

never  lx  visible  to  the  uung  program  g-y  an  limply  return  its  input  objrct  Ordinarily,  however, 
cog"?  should  copy  its  input  objrcTi  including  ear  h  comjwinent  (using  the  repy  operation  of  the 
component’s  tyjx>  as  is  clone  in  the  implementation  of  inf  ter 

The  t^ual  i^xiaticwi  should  return  trix  if  its  two  inpsit  objrcts  are  the  same  abstract  object 
This  is  necessary  to  satisfy  the  substitution  property  if  two  of' jests  are  rqsiat.  then  using  one  in 
plate  of  the  other  in  a  computation  will  not  alter  the  computation  Thus,  implementing  rqual 
prnfxrly  recjuires  a  thorough  understanding  of  both  the  abstraction  being  implemented  and  the 
represent atton  txmg  used  Usually  tiro  mutable  objects  are  equal  only  if  they  are  the  exact  same 
object  in  the  fill  universe.  eg  see  ml  trlirqua!  above  For  immutable  objects,  the  contents  of 
the  nb  jrc  t  is  usually  all  that  ma'ters.  eg  sax  ,  -nip/ei  Wjua/  and  inf  hu\tqua!  above 

The  ti-nr/ar  njxratmn  shook!  recurn  tnx  only  if  its  two  input  objects  (both  of  the  same  type) 
have  ‘equivalent  state"  T  his  means  that  any  query  made  about  information  in  tsro  similar  objects 
immed la'ely  after  ’hey  we>e  dr^r'cnined  to  be  simitar  would  provide  an  equivalent  answer  for 
either  of  the  two  ob^tt  ie  the  answers  would  lx  nmi/ar)  Note  that  timi/ar  IS  a  weaker 
condition  than  qu«/  two  objects  are  ryual  if  they  are  the  ia*ne  abstract  objrcts.  and  so  of  course 
they  are  umil/t*  for  all  lime  f  qual  and  umlc  re»urn  different  results  only  for  mutable  types, 
because  only  mutable  types  have  nbpvts  whose  sta'e  can  change  fepy  artd  ilml/ar  should  be 
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related  it  follow  t  for  any  tape  I 

v»«  I  [  Tttimilarta  Mcapy<*>>  ] 

Wi'h  the  r<  eption  of  i r.'  and  iter  (•prra'iont  procedure!  (hit  def  inf  ofteralor  tyrnbolt.  (c<fry. 
ti*r  it  and  the  I/O  operation!  thould  nevrt  modify  (heir  input  cibjettt  in  i  way  tint  the  uver  of 
•hr  ii ♦.  jr. !  m  deteit  I  hit  rule  rf  i  w  t  not  prohibit  “T»enevolefy|*  tide  effect!,  if  rraodtf  i<  mom  that 
tpeed  up  future  operation!  1 1 K< mt  affecting  behavior  in  any  othei  way 

13.4  P  n  name  teri  zed  Modules 

Procedure!  iir'itnn  and  ckreri  may  ill  be  paramerenied  Par  araaeteuiation  frermiti  a  vet  of 
reli'e-t  abfrattiofH  •  i  tie  define*)  tiy  i  .infle  module  Pnall  that  in  rath  module  heading  there  It 
an  np’iianal  lame  and  an  optional  where  ttaute  The  prevente  of  the  pareii  dative 

indn  ife\  tha’  the  r>i»Uile  n  parameter  ired.  the  where  rlaine  vtatet  certain  convtrainti  on 
peimmihle  a'tual  a  ylnrt  for  the  parameter! 

t  he  form  of  the  pu’"il  dative  it 
1  parm  ,  1 

where 

parm  s  rdn  ...  fy(*e  ijie* 

|  idn  type 

F  ar h  pa •  amecer  it  lela-e|  lile  m  a'fm'ent  However  only  the  following  typet  of  parameter!  are 
le,  al  Int  reel  hoof  char  ttrlng  null  and  type  Parametert  are  limited  to  theie  tyjaet  heyauve 
the  «  na  I  .  «lt  iet  'or  p  i  *  a  r  refer  t  f e  *  e^jt  i  (red  to  l*e  <  on  rant!  that  tan  he  ( omputed  at  t  ompile  I  ime 
T  hit  requirrmen'  entnret  ’hat  all  t»f>et  are  known  at  compile  time,  and  permttt  complete 
( ompile  lime  iy(*e  t  He-  liny 

fn  a  pa*  ame'e- 1  fed  nrvlule  (he  v.  ope  mlet  permit  the  parametert  to  f»e  uved  throughout  the 
remainder  of  the  p*»tule  I  hut  the(  an  be  lived  in  defining  the  typet  of  argumentt  and  reuittv. 

p  -  proc  It  type)  »«  tl  return*  f t> 

To  nte  a  pat ane'e'ired  module  i*  n  (pit  neretta'y  to  i  nifa*tfia/r  it.  that  it.  to  provide  actual, 
contiani  valnei  fr>»  the  pa’ame'e't  'The  etatt  formv  rvf  tin  h  rnmtantt  were  diuutved  tn 
*>e*  tif>o  The  rettilt  of  inf  a  n'tat  ion  it  a  procedure  itetator.  or  tape  (where  the  parameterlie«d 

mrvfnte  wat  a  prnrednre  iterator  or  clutter.  revpe<  lively)  that  may  he  uteri  juvt  like  a 
non  pat ameterired  module  of  ’he  tame  kind  For  each  divtinct  infantlatton.  <|e,  for  each  dlMinrt 
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lilt  of  a<  Uial  (uumftm)  a  dlvltmt  ptoirdurr  itrralor.  of  tyjx  it  prodixrd 

I  hr  mraning  of  i  paiamrtrriird  modulr  it  n*nl  cauly  understood  in  terms  of  irwriting 
Whrn  thr  module  it  instantiated  ihr  jilu.it  parameter  valors  arr  substituted  f Of  the  formal 
parameters  throughout  !hr  modulr.  and  the  pjr«ti  clause  and  where  (lautr  arr  deleted  7  hr 
resulting  nwalutr  it  a  regular  <no*t  parameter  urd1  module  In  Ihr  (atr  of  a  (luster  some  of  Ihr 
operations  mat  have  aid  it  too  a  I  parameters,  futthfr  rrwriting  will  be  performed  whrn  ihrse 
oper  aborts  arr  used 

In  thr  t 'r  of  a  tyjx  pa’anw-rr  onstraintt  on  |>r'mittihlr  jitua!  t y j*rt  tan  br  given  in  Ihr 
where  ■  lautr  I  hr  whrrr  liutr  ln:t  a  \n,  derations  that  thr  aitual  tyjx  it  required  to  have 
and  alto  sjxnfirt  'hr  t*pr  ,i<  r»  h  required  oyxr  j’mn  Ihr  whart  (lautr  (onvtrams  thr 
pjramrtrri/rd  modulr  n  writ  'hr  onl»  primitive  ojxrabont  o.  thr  tyjx  parameter  that  tan  l>e  used 
arr  thntr  luted  to  (hr  whrrr  lautr 
!  hr  lorn  of  thr  whrrr  <  lautr  it 

whrrr  *  whrrr  rrttrrdion 

whrrr 

rrttrictron  x  idn  hat  (<jx>  led 

id  n  in  tyjx  vrt 

Of>er  (In  I  -  namr  tyjx  (j*n 

op  namr  a  namr  |  (  (onttant  ...  ]  j 

tvjx  trr  s  (  Kin  I  Kin  hat  iiprt  dn  I  .  {  equate  }  ) 

|  Kin 

T  hrrr  a*r  two  forms  of  rrfri  tiom  In  f*vh  formt  thr  initial  l«f  «  mutt  br  a  type  parameter 
Thr  hat  form  littt  rhr  set  o'  required  ^x-ationt  dirrtlly  by  tnrjni  of  epyr  dt\  It  7  hr  type  i  hr< 
in  ric  h  rfe>  dr  mutt  namr  a  routmr  type  Note  that  if  uwnr  of  thr  tyjx  t  operations  atr 
parartrrr*ifn|  particular  instantiations  of  'hotr  ojx'j’inm  mtivt  br  given  Thr  In  form  requires 
tha’  thr  »  trial  rqx  fx  t  member  o'  a  !if-r  •/>  a  trr  of  trpri  having  thr  required  operations  Thr 
two  K 1  rn * i f  irtt  in  thr  (ype  trr  mmf  ma’  h  and  thr  maaticwi  it  trad  like  trr  notation  r  g 
(t  I  t  hat  f  I 

mrant  rhr  w»  of  all  typrt  f  hi  h  ’ha'  f  hat  f  *  Thr  unpe  of  thr  idmtifirr  it  thr  lypr  vrt 

T  hr  In  form  it  uirf  ill  bn  autr  an  a  t»b'rv  ia' ion  ran  br  givm  for  a  typr  trr  via  an  rquatr  If  It 
It  hrlpful  to  infrrvlin  r  mr»  abhrrv  latmnt  in  drfining  thr  type  trt  thrvr  arr  givm  in  thr  optional 
rqtiar  rt  within  thr  typr  trr  Thr  u  npr  of  thrvr  equates  It  thr  typr  vrt 
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H  routine  in  a  parameter  i/nl  .  luster  mi  *  have  a  whfff  clause  in  111  heading  and  (an  place 
further  (umifainlt  on  (hr  ,  luitrt  parameters  for  example  any  type  11  fiermissible  for  the  array 
element  type  but  i hr  array  n»!i/a>  i<f<rtj’inn  requires  th  it  (hr  element  type  havr  a  JI"U/ar 
oper  it  ion  1  his  means  that  array1  T1  f»ilts  for  any  type  1  hul  that  array1  1  llumilar  eillts  only 
whrn  llumilar  rsitts  Nor  -ha1  a  rou’ine  nred  not  in  Hide  in  in  wh*r«  clauir  any  o(  the 
restrit'ions  included  in  thr  dus'er  where  ilauir 

I  mu  rsamples  of  patame«e-tffd  lusters  are  th  »n  in  figure  T  1  hr  first  defines  the  iff  tyf>e 
i-ritf  Co'  T  hu  r  histrr  it  similar  to  ml  ref  preserved  in  'he  p-rv kiui  let  tion  T  hr  main  dif  f  er ence 
It  thit  rsr-.whe'r  tha'  in !r,rr  rlrmentt  wrrr  aiuirei  now  thr  parameter  I  n  used  The  iff  tyfae 
f  rnrr  ilor  hat  a  where  liutr  that  requires  'hr  element  tyf>e  to  provide  an  rqua!  Ofseration.  in 
a  t  lltmn  the  iiau/ar  open'ton  imjxnet  an  additional  constraint  on  the  element  ty|»e  by  requiring  a 
.  -  >•  ofier  i'kwi  T  hut  se-' \  !  it  ley  al  if  \  hat  an  t^Li.  toleration  but  serf  \  llumilar  can  be  used 

only  it  \  alto  hat  a  :>  ofte-ition  Si ve  the  p'i»rdurr  ii  in  liei  it  n  a  hidden  routine  of  thll 

implementation  Mto  n< er  'hr  use  of  thr  tape  set  j,"n  fyfv 

T  hr  '.fart  tit  a  trf  oh jr  t  n  'hr  ir<  of  ahitta  t  objects  currently  in  thr  set  What  matter!  li  the 
identity  of  the  oh  p-  -i  no'  'h<-r  s'a'r  1  hit  should  help  in  understanding  why  equal.  ii"ti/ar.  and 
•ey  are  written  it  'hr*  ire  SiVi  r  'hi'  »r  hue  'wo  nr»  nfseratlom.  um/dr/  and  (Cf^l  ,li"l t/d'/ 
rerur nt  true  when  twtr  •  +  r  tt  hi.r  equal  i  i'e  in  the  aht'tn!  sente  whereat  ji"u.'d'  returns  true 
when  t he y  hive  umili'  stale  (  fil  IS  to  ' . m la r /  what  <cf*f  IS  to  ll"ular.  I  e., 
Ttumila'I  T  l  s  *  I  ‘ '  f  tl-  ul‘  always  be  nir  In  fmr'il  mutable  type  generators  that  behave 
tile  -lie  Mont  th  oil*  p-  .,'r  -  :•!  and  m/  to  mtiirr  'hit  !yf»n  obtained  from  the  generator 

can  lie  used  it  part  of  'hr  no  -ft  r ep- r ten' i' ion  of  other  t»j»ei 

T  he  te-  m  I  e «  ample  it  a  :  t»|>r  generator  whi  h  it  similar  to  irt  In f  in  the  previous  section 
li'.t  'i»s  nc  pli  e  ini  on  or  amts  in  i’i  ’  ype  pa r  anrtrr  T  he-efore  any  element  tyjse  is  permissible 
for  litrs  in  Hiding  tyjw  any  Srvr  that  the  tyjwt  generated  by  the  Inf  type  generator  are 
immutable  The  ugr  of  a  In'  is  ontideted  to  he  the  ordered  set  of  obfrrts  in  the  list,  where  only 
the  identity  of  the  oh  pots  mi  'r-s  l  u't  a'e  imnu'ihte  eten  if  the  objects  in  the  lists  are  mutable, 
because  the  sfi’e  of  i  list  neve-  fhinget 

f  nnfutmn  in  arise  unless  the  designer  and  implementor  of  a  data  type  have  in  mind  a  clear 
idea  of  eaat'ly  what  romtilutes  the  s-a'e  of  the  objects  of  the  type  they  are  defining.  It  mult  be 
resolved  in  whi  h  ise»  it  is  only  'he  identity  of  the  components  that  matters  and  In  which  caiei 
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Fig.  7.  M  orr  i  simple  C  luvtert 


vet  -  cluster  It  typsl  Is  ireste.  invert.  delete  11  in  ute. 

element!  equsl.  vimilsr  umiUtl.  iopf.  topyl 

where  t  has  rqusl  proctype  It.  t>  returns  'bool1 


rep  -  array it) 

vim  njvr  .  v  I  v  has  vimilsr  proctype 't.  I'  returns  'boot') 

cteste  -  proc  <’  returns  <cvt' 
return*  rep  t  newt  >> 
end  i irste 

invert  -  proc  *v  cvt  v  t> 

if  -  iv  in'up'v1  »'  then  replsddh't  v1  end 
end  invert 

delete  -  proc  iv  cvt  v  t» 

for  j  Int  In  reptin  Inn'll  do 
If  v  •  vi  |) 

then  U  )1  -  rrps njr v> 
rept  trrihi  v* 
return 

end 

end 

end  delete 

It  in  -  proc  v  cvt  v  t’  returns  bool 
for  ii  1  In  r ep t r kmven * v 1  v '  do 

If  u  -  v  then  return  true1  end 
end 

return  false' 

end  iv  in 

ll  in  vim  -  proc  'v  cvt  v  P  returns  1  bool  where  l  In  urn  type 
for  II  1  In  repirlemen't'  i1  do 

If  rtvimilar'u  »'  then  return  true1  end 
end 

return  false' 

end  iv  in  um 

vi fe  .  proc  U  cvt  returns  'Int 
return  reptvur*  t'l 
end  vue 


PjUinetff  ijrd  Module* 


SIM 


element*  .  iter  <*  cvt>  yield*  ((> 

for  v  I  In  repjrlntifnlil  |l  do 
yield*  v  * 
end 

end  element* 

r.}«iil  .  proc  <*|  i?  cvt*  return*  < boot 
return*  i|  •  *2* 
end  rijiiil 

Mmil*t  .  proc  Ml  O  wt(t)l  return*  bool  where  l  In  um  type 
If  me  *1  *nr*0  then  returnfal*r  end 

for  II  t  In  rlrmeri’vtl1  do 

If  -  ii  in  linn.’  u>  then  return  fal*e*  end 
end 

return  true 

end  uniUr 

timiUrl  -  proc  il  *?  iet(t]l  return*  bool 

If  utrMl  ^  -  *,;e  O’  then  return  false'  end 
for  u  i  In  element*' tl'  do 

If  -  n  in  i.’  ii  then  return  false  end 
end 

return  true 

end  unitjrl 

,’f’*  •  proc  cvt  return*  cvt  where  t  ha*  (opr  proctyp#  (|)  return*  (|) 
return  rept  npyM>> 
end  <nfn 

■V*>  -  proc  M  cvt  return*  cvt 
return*  rept<  opyl’t 
end  r op r 1 


end  vr* 
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IlM  -  cluster  (i  type!  I*  create  com  tar.  edr.  iv  in.  it  empty.  element*  equal.  umtUr.  copy 

rep  -  oneof'pair  pair.  empty  null! 
pair  -  (true  tt  tat  I  cdr  li»t( ( ) ) 

create  -  proc  <•  returns  <cwt' 

return*  repjmakr  emptytnM>> 

•  nd  c reate 

com  -  proc  <v  t  lu  livllll’  return*  <cvtl 

return*  replrnal  r  pairlpairf  (car  v  cdf  ht)>) 
end  com 

car  -  proc  hi  cwt'  return*  * t *  signal*  (empty! 
tagcaif  hi 

tag  pair  'p  pair'  returrr*pcar) 
tag  empty  signal  empty 
r  nd 
end  car 

cdf  -  proc  'hi  cwt'  return*  'liitll)'  signal*  (rmpey! 
tage ate  hi 

tag  pair  <p  pair'  return"  pedr' 
tag  empty  signal  empty 
end 
end  edr 

It  in  -  proc  'hi  cwt  v  t  return*  boot  where  !  ha*  equal  proctype  It.  t>  relearn*  (boof 
while  true  do 
tegr  ase  hi 

tag  emyrly  return*  false' 
tag  pair  *p  pair)  If  p  car  -  v 

then  return*  true' 
else  hi  -  down* p  edr) 
end 

end 

•nd 

end  it  in 

It  empty  -  proc  '1st  cwt'  return*  'boot' 
return^  repfit  emptyihl') 
end  It  empty 
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rler’sents  *  Iter  hi  cvt1  yields  't> 
tagcase  hi 

tag  pair  <p  pair),  yield  p<ar> 

for  »  i  in  elemcntsip  tdr *  do 
yield  vi 
end 

tag  empiy 
end 

end  elements 

equal  -  proc  ■  ht  1  hi?  cvt  returns  <bool'  where  I  has  equal  proctype  <t,  t)  returns  <  booC 
returrr  1st  I  -  hi?» 
end  equal 

similar  -  proc  h’l  hi.'  cvt'  returns  boot’ 

where  t  has  similar  proctype  It.  t)  returns  <booP 
returr*  repjumilardsil  ht?'> 
end  similar 

copy  -  proc  *  hr  cvt1  returns  i cvt1  where  t  has  copy  proctype  <t>  returns  <0 
return  rept<  opy<  ht>) 
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their  state  millm  as  writ 

T  he  poiiiion  taken  in  (hr  till  type  fmrtatot  below  n  that  the  state  of  a  list  consists  only  of  the 
identity  ol  the  cibjrcts  in  the  liu,  and  dors  not  depend  on  'heir  state  Hence,  these  hits  are 
immutable  I  bn  explains  why  Ini  has  no  wula'I  or  <cf^l  operations,  and  why  equal,  unilar,  and 
copy  are  imp  lenten  ted  as  they  are 

I  here  are  two  reductions  on  the  kinds  of  constants  that  can  be  used  in  op  names  of  wh*r« 
clauses  and  type  sets  These  restrictions  eliminate  certain  ambiguities  that  would  otherwise  arise  in 
tyjve  checking  1  hrr  is  no  need  m  understand  or  rrmemtrer  these  restrictions,  as  the  programs 
they  affect  are  fairly  birarrr  and  hate  never  occurred  in  practice  The  rules  are  included  here 
solely  for  consple'eness 

The  1  i  r  s’  resrri  um  is  'ha’  no  tyj*e  parameter  and  no  ty[>e  identifier  introduced  in  a  type  set. 
can  be  used  anywhere  in  an  up  name  constant  Thus  if  f  is  a  type  parameter,  an  op  name  of  the 
form  "c  ompulef  array!  til*  would  be  itleyal  The  second  restriction  deals  with  the  way  data 
abitracrtons  letsrnd  on  ea  h  cither  If  in  the  in'erfa  e  of  a  data  abstraction  A.  some  data 
abstractiots  R  is  used  in  an  op  name  constant  we  say  that  A  is  'restricted  In  lerms  of  *  R  We 
define  r  urn  to  be  the  transitive  closure  of  this  relation  The  second  restriction,  then.  It  lhat  an 
abstraction  tannee  r  utr  itself 

13.6  Own  Variables 

Occasionally  It  is  desirable  to  have  a  module  that  retains  information  internally  between 
invocations  Without  star  h  an  ability  the  information  would  either  have  to  be  reconstructed  at 
every  invo  atton  *hc  h  can  he  ecpentive  'and  may  even  be  impossible  if  the  inf ormattoo  depends 
on  previous  in  v<v  atnwss'  or  the  information  would  have  to  be  passed  in  through  arguments,  which 
M  undesirable  because  ihe  information  is  (hen  sublet  to  uncontrolled  modification  In  olher 
modulec 

Procedures  ire*afors  and  rhisrers  may  all  re'arn  information  through  the  use  of  own  variables 
An  own  variable  is  similar  to  a  normal  variable  rxerpt  that  it  retains  Its  denotation  from  one 
routine  activation  in  ihe  next  including  recursive  activations  Syntactically,  own  variable 
declarations  mnsr  appear  immediately  after  the  equates  in  a  routine  of  cluster  body,  they  cannof 
apfvear  in  bodies  nested  within  sraremen's  Own  variable  declarations  have  the  form 
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own  v»r  i  own  do  I 

own  i  !n  tsjve  spec  .  expression 

|  own  led  ...  •  invocation 
Note  that  initialization  is  optional 

<>wn  variables  a’r  created  when  a  program  beyms  nnjlion  and  they  always  start  out 
uninitialized  I  hr  own  variables  o*  a  routine  (including  dustrt  operations'  arr  initialized  in 
ir'iml  orde-  as  part  of  thr  firs’  invocation  of  that  routine  t»eforr  any  statements  in  the  bcdy  of 
the  routine  arr  executed  (  Kn’rr  own  variables  arr  initialized  in  textual  ordrr  as  part  of  thr  first 
invn  at  ion  of  thr  fm  clus’rr  .prrafion  to  hr  invol  rl  rsm  if  thr  opr- at  ion  dors  not  usr  thr  own 
variables'  (  lustrr  own  s  anahlrs  a-r  in  it  t  a  li  f  r»1  t-rfo-r  any  oprration  own  variables  arr  initialized 

Ail  1r  from  thr  ph  rmrnt  of  thnr  drt larattons.  thr  time  of  thrir  initialization.  and  thr  Itfrti  -ve 
of  thru  denotations  own  s  anahlrs  a  t  just  In  r  ncsrmal  vanahlrs  and  can  be  usrrl  in  all  the  same 
plairs  As  for  normal  variables  attempt!  fo  use  uninitialized  own  variables  (if  not  detected  at 
compile  tirsr’  ratise  -hr  run  time  exception 
I  a  i  lures  *110101’  lalized  v  aria  hie*' 

Own  van  able  declarations  in  different  modules  always  refer  to  distinct  own  variables,  and 
distin-t  r  x  r  ut  ions  of  programs  nrsr-  sha-r  own  variables  (even  if  the  same  module  is  used  m 
several  proy- lams'  Furthermore  own  v a- uble  dec lara’ions  w ithin  a  par ametrrized  module  produce 
distinct  own  variat-les  for  ra  h  instanria'ion  of  the  module  For  a  given  instantiation  of  a 
parameterized  clus’e-  alt  instantiations  of  the  ttjw  s  operations  share  the  lame  set  of  cluster  own 
variables,  but  distinct  ins’an’ia’ions  of  parameterized  operations  have  distinct  routine  own 
variables  For  example  in  the  following  cluster  there  is  a  distinct  *  and  y  for  every  type  f,  and  a 
distinct  z  for  every  type  integer  pair  <f.  I* 
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C.  -  cluster  It  type)  Is 


own  x  Int  -  mill  )  •  ? 


P  -  proc  I  ) 
own  y 


end  P 


<.£  -  proc  1 1  Int)  (  ) 


Own  variable  declarations  unniY  Ivr  enclosed  h»  an  except  statement.  so  car r  must  t>e 
exercised  when  writing  initialization  expressions  If  an  exception  is  raised  by  an  initialiration 
expression.  It  will  l»e  treated  as  an  exception  raise)  but  not  bandied,  in  the  l»ody  of  the  routine 
whose  invor  atmn  cause)  rhr  initialization  io  be  attempted  This  routine  will  then  signal  failurt  to 
its  caller  'see  Section  I.'?*  In  the  r cample  duster  al>ove  if  procedure  P  were  the  first  operation  of 
CJ  string)  to  be  invested,  cautrn,'  imhiU>nior>  of  a  fo  be  attempted  then  an  rrvr/ 7ow  exception 
raised  in  the  initialiration  of  »  would  result  in  P  signalling 
f ailuret ‘unhandled  exception  overflow*) 
to  its  caller 

Remark  s 

Own  variables  arr  often  useful  in  declaring  "constants’  that  are  either  derived  from 

complicated  computations  or  »'r  otherwise  die,  a  I  in  equates  In  almost  all  such  cases.  Ihe 

initialization  can  be  atta'  bed  directly  to  the  dec  la  ration  f  or  ex  ample 

own'lip  comples  •  c  nmplec  $c  rea’dO  f  I  0> 
own  primes  lequencednt!  •  rable  of  primesO 

However  the  data  denoted  by  own  variables  may  also  change  dynamically,  and  may  contain  history 
Information  as  the  following  'fairly  useless*  module  demonstrates 
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■X  add  !o  waiting  Int 
X  il  delayed  king  enough 
\  prevent  eventual  over!  tow 
\  remove  and  return  oldest 


ileli >et  -  proc  It  type  delay  inti  U  t>  returns  tt>  signals  (not  yrt> 
at  -  arrayft) 
own  okties  at  -  atlne* 
it  Jaddhtokltes  \* 

If  ittilfHokliea*  »  delay 
then  oldies  k>w  •  I 

return  atitemF oldies*) 
else  signal  not  yet 
end 

end  deliver 

When  i  luster  own  variable  mi'ialmtion  involves  lmg,thy  computations.  one  own  variable  tan 
t>e  initialtred  wrh  an  (internal1  riper  at  ion  call  and  the  bmfy  of  that  operation  can  assign  values 
direr  tly  to  the  other  own  variables 
(  -  cluster  Is 


own  «  table  -  own  mitt) 
own  y  table 

own  ■  nit  *  proc  returns  (table 


y  - 

ref urn  > 

end  own  in  it 

end  ( 

( »n  mission  when  a  particular  program  is  known  to  use  exactly  one  object  of  a  particular 
user  >tef  inert  t>pe  it  is  temptinf  'o  implement  the  (>|w  sifr  h  that  the  vole  object  is  denoled  try  a 
this'er  own  variable  In  thu  ea>  the  objef  nee!  not  he  passed  as  an  argument  to  the  various 
routines  in  the  romputation  many  of  whuh  do  not  even  live  the  object  directly  This  is  a  poor 
design  derision  in  most  axes  berause  the  ways  in  which  the  type  can  he  used  later  are  then 
severely  restricted  for  rsample  ’he  tyjw  cannot  then  t>e  used  in  any  program  requiring  several 
oh  jer  r s  of  that  tvjw  It  is  usually  better  to  design  types  in  as  general  a  manner  as  possible 

With  the  introdufinn  of  n»n  variables  prot edures  and  itrralors  berome  jiotmtially  mutable 
ob  je>  »s  If  the  ahstri  t  behavior  of  a  routine  depends  on  history  information  (as  does  drlayrr 
above'  then  <are  must  be  exercised  to  guarantee  that  the  routine  is  used  correctly  in  other  modules 
•  Ideally  a  (  1  11  system  should  have  some  method  of  controlling  access  to  routines)  In  general,  own 
variables  should  nm  he  used  In  rnmfify  the  abstract  behavior  of  a  module 
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Appendix  I  -  Syntax 


Wr  live  an  extended  BNF  grarnnur  to  define  t he  syntax  The  general  form  of  a  production  li 

nonterminal  :  a  alternative 
|  alternative 

I 

|  alternative 

1  he  following  extensions  are  used 

a  list  of  one  or  more  a’s  separated  by  commas  ”a"  or  *a.  a"  or 
"a  a.  a*  etc 

a  sequence  of  zero  or  more  a's  *  ’  or  "a"  or  'a  a’  etc 
an  optional  >2  '  *  or  "a* 

All  semicolons  are  optional  in  (Ml.  but  for  simplicity  they  appear  in  the  syntax  as  rather 
than  -[  ]*  Nonterminal  symbols  appear  in  normal  face  Reserved  words  appear  in  bold  face  All 
other  terminal  symbols  are  non  alphabetic  and  apjrear  in  normal  face 


id 
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mrxlule 

j  equate  J  procedure 

1 

{  equate  j  iterator 

1 

{  equate  ^  c luster 

procedure 

tdn  -  proc  [  parms  j  args  [  returns  ]  [  signals  j  J  where 
routine  body 

end  idn  . 

iterator 

Kin  -  Iter  [  parms  ]  args  [  yields  j  |  signals  ]  [  where  ]  , 
routine  body 

end  idn  . 

cluster 

idn  -  cluster  [  parms  ]  Is  idn  ,  ...  [  where  ]  . 
t luster  body 

end  idn  . 

parrm 

[  parm  .  ...  1 

parm 

idn  .  ...  type 

1 

idn  .  ...  type  sper 

argi 

<  [  dec)  ....  1  1 

L 
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Syntax 


dec  1 

s 

idn  .  ...  type  spec 

returns 

return*  <  type  spec  .  ...  1 

yields 

yield*  <  type  \f>et  .  ...  1 

Ui^nih 

-  : 

signal*  <  exception  ...  1 

exception 

name  [  (  type  s|>ec  ....)] 

where 

::s 

where  restriction  .  ... 

restnc  tion 

s 

Kin  ha*  oper  desl  ... 

1 

idn  In  ifftr  set 

tyjxe  set 

s 

t  idn  1  idn  ha*  nj>et  dexl  ,  ...  . 

^  equate 

1 

idn 

ojyer  desl 

:  s 

op  name  ..  ty(>e  spec 

op  name 

s 

name  f  (  constant  ,  ...  1  ] 

constant 

::« 

ex  presston 

l 

type  spec 

routine  h»»1y 

s 

{  equate  } 

{  own  var  } 

|  sta'ement  j 

cluster  be»iy 

z 

|  equate  j  rep  -  ty pe  spex  . 

{  expiate 

{  own  var  } 

routine  <|  routine  } 

routine 

prm  e.lure 

1 

Iterator 

equate 

s 

idn  •  constant  . 

1 

idn  -  type  set  . 

own  var 

own  levl  . 

I 

own  idn  type  spec  -  expression 

i 

own  devl  ..  -  invcnatmn 
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Syntax 


typf_ip«  null 

|  bool 
|  lot 
|  root 
|  char 
|  string 

I  *"y 

I  rap 
|  cat 

|  array  (  type  if**  1 
|  saquanca  (  type  iprt  ) 

|  racord  (  firkl  jpn  ....  ) 

|  struct  f  field  ipet  .  ...  J 
|  onaof  (  field  vpet  .  ...  J 
|  variant  (  firld  vpec  . ...  ) 

|  proctypa  •  [  type  »pec  ,...]>[  trturm  ]  [  ugnah 

|  Itartypa  <  [  type  vpec  ....]>[  y»eld»  ]  [  ugnah  ] 

|  *dn  (  (omunt  .  ...  J 

|  Kin 


field  .spec 


■■■•  name  .  ...  typr.ipw 
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Syntax 


ttatrmmt  dec!  ; 

idn  typr.iprc  -  rxprruion  . 

|  drcl  . ...  -  invocation  , 

|  idn  . ...  •  invocation  , 

|  idn  ,  ...  •  rxprruion  , ... 

|  primary  .  namr  •  rxprruion  ; 

|  primary  [  rxprruion  )  •  rxprruion  . 

|  invocation  . 

|  while  rxprruion  do  body  end  . 

|  for  [  drc I  . ...  j  in  invocation  do  body  end  . 

|  for  [  idn  .  ...  ]  In  invocation  do  body  ond  . 

|  If  rxprruion  then  body 

{  elteif  rxprruion  then  body  } 

[  tilt  body  ] 

•nd  . 

|  tagease  rxprruion 
tag  arm  {  tag  arm  } 

[  others  body  ] 

•nd  . 

|  return  [  (  rxprruion  ....>]. 

|  yield  [  (  rxprruion  ,...)]. 

|  signal  namr  [  (  rxprruion  ....»]; 

|  exit  namr  [  <  rxprruion  ....>]; 

|  break . 

|  continue  , 

|  begin  body  end  . 

|  itatrmmr  retlgnal  namr  . ... 

|  Matrmmt  except  {  *»bm_handlrT  } 

[  otbrri  bandlrr  ] 

•nd  ; 

tag  arm  ::e  tag  namr  ....[<  idn  typr.xprc  )  ]  body 
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w hen  > and  ter 

ot  hen. handler 
body 

riprniMn 


when  name  ,...[<  detl . ...  )]  body 
|  when  name  ....(•>  body 

other*  [  <  idn  type  ipet  •  ]  body 


:rm  {  equate  } 

{  statement  } 
primary 

|  <  eiprnuon  ) 

|  -  expression  1  6  (precedence) 

i  -  expression  X  6 

|  expression  ••  eiprnuon  t  5 

|  rxprnuon  //  exprruion  I  < 

|  expression  /  rxprnuon  X  < 

|  ripreuion  •  expression  t  i 

|  expression  I  rxprnuon  1  3 

|  ripreuion  ♦  eiprnuon  X  3 

j  eiprnuon  rxprnuon  I  3 

|  exprruion  <  ripreuion  t  2 

|  eiprnuon  <-  exprruion  X  2 

|  eiprnuon  -  eiprnuon  1  2 

|  eiprnuon  >•  eiprnuon  X  2 

|  eiprnuon  » ripreuion  I  2 

|  eiprnuon  *<  ripreuion  1  2 

)  eiprnuon  *«•  ripreuion  1  2 

|  eiprnuon  —  eiprnuon  f  2 

|  eiprnuon  **•  eiprnuon  1  2 

|  eiprnuon  «->  eiprnuon  I  2 

|  eiprnuon  I  eiprnuon  X  I 

|  ripreuion  cand  rxprnuon  X  I 

|  eiprnuon  I  eiprnuon  1  0 

|  eiprnuon  cor  eiprnuon  X  0 
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9 1 


primary 


invocation 

field 


nM 

|  true 

|  falaa 

|  int  literal 
|  real. literal 
|  char. literal 
|  string. literal 
|  idn 

|  idn  [  constant  . ...  ) 

|  primary  .  name 
|  primary  (  expression  ) 
j  invocation 

|  type. spec  t  I  field  ,  ...  I 

|  type. spec  S  t  [  expression  ]  [  expression  . ...  ]  J 

|  type  spec  t  name  [  [  constant  . ...  1  ] 

|  force  (  type  spec  ) 

|  up  <  expression  > 

|  down  <  expression  > 

primary  <  [  expression  ,...]> 
name  . ...  expression 


Rnrr iwd  nKtffi  one  of  the  identifiers  appearing  in  bold  face  In  the  syntax.  Upper  and  lower 
case  letters  are  not  distinguished  in  reserved  words 

Nan*,  idn  a  sequence  of  letters,  digits,  and  underscores  that  begins  with  a  letter  or  underscore, 
and  that  is  not  a  reserved  word  Upper  and  lower  cate  letters  are  not  distinguished  in  names  and 
idnt 

Intjitfra!  a  sequence  of  one  or  more  decimal  digits 

Rral  lilrral  a  mantissa  with  an  'optional)  exponent  A  mantissa  Is  either  a  sequence  of  one  or 
more  decimal  digits,  or  two  sequen«es  'one  of  which  may  be  empty)  joined  by  a  period  The 
man'itva  must  contain  at  least  one  digit  An  exponent  is  ’E'  or  V,  optionally  followed  by  V  or 
followed  by  one  or  more  decimal  digits  An  exponent  it  required  if  the  mantissa  does  not  contain  a 
period 
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Ckar_httral  either  a  printing  ASCII  character  (octal  value  10  thru  176).  other  than  tingle  quote 
or  backslash,  enclosed  in  single  quotes,  or  one  of  the  following  escape  characters  enclosed  in  tingle 
quotes: 


escape  sequence 

character 

V 

(singlr  quote) 

\* 

(double  quote) 

\\ 

\  (backslash) 

\n 

NL  (newline) 

\t 

HT  (horitontal  tab) 

VP 

FF  (newpage) 

\b 

BS  (backspace) 

\r 

CR  (carnage  return) 

\v 

VT  (vertical  tab) 

\«»» 

specified  by  octal  value  (exactly  three  octal  digits) 

The  escape  sequences  may  be  written  using  upper  cate  Inters 

StrtngJiltral  a  sequence  of  mo  or  more  character  representations,  enclosed  in  double  quotes. 
A  character  representation  is  either  a  printing  ASCII  character  other  than  double  quote  or 
backslash,  or  one  of  the  escape  sequences  listed  above 

Connect  a  sequence  of  characters  that  begins  with  a  percent  sign,  ends  with  a  newline 
character,  and  contains  only  printing  ASCII  characters  and  horitontal  tabs  in  between 

Srparatc*  a  blank  character  (space,  vertical  tab.  horitontal  tab,  carriage  return,  newline,  form 
feed*  or  a  comment  Zero  or  more  separators  may  appear  between  any  two  tokens,  except  that  at 
least  one  separator  is  required  between  any  two  adpeent  non -self -terminating  tokens,  reserved 
words,  identifiers,  integer  literals,  and  real  literals 
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Appendix  II  -  Built-In  Types  and  Type  Generators 

The  following  sections  describe  the  built  in  types  and  the  types  produced  by  the  butk-in  type 
generators  For  each  type,  the  objrtti  of  the  type  are  characterized,  and  all  operations  of  the  type 
are  defined  (with  the  exception  of  the  encode  and  decode  operations,  which  are  defined  In 
Appendix  III.  Section  f>) 

In  defining  an  operation,  atgl.  atgj,  etc .  refer  to  the  arguments  (the  objects,  not  the  syntactic 
expressions),  and  it i  refers  lo  the  result  of  the  operation  If  execution  of  an  operation  terminates 
in  an  exception,  we  say  the  exception  'occurs'  By  convention,  the  order  in  which  exceptions  are 
listed  in  the  operation  type  is  the  order  in  which  the  various  conditions  are  checked 

The  definition  of  an  operation  consists  of  an  tnteifatt  tpeaficatton  and  an  explanation  of  the 
relation  between  arguments  and  results  An  interface  specif ication  has  the  form 

name  type. spec  side  effects 

restrictions 

If  n.fr  e//ecr i  is  null,  no  side  effects  can  occur  'PSE'  (primary  side-effect)  indicates  that  the  state 
of  atgl  may  change  *SSE*  (secondary  side  effect)  indicates  that  a  state  change  may  occur  in  some 
object  that  it  contained  in  an  argument  '  Restudicm.  If  present,  is  either  a  standard  wliara 
clause,  or  a  clause  of  the  form 

where  each  T  haa  oper  decl 
which  is  an  abbreviation  for 

where  T,  has  oper  dec/,.  .  T^  haa  oprr.dec^ 

Arithmetic  expressions  and  comparisons  used  in  defining  operations  are  to  be  computed  over 
the  domain  of  mathematical  integers  or  the  domain  of  mathematical  reals,  the  particular  domain 
will  he  clear  from  context 

Definitions  of  several  of  the  types  will  involve  tuples  A  tuple  is  written  <e,.  ....  e,,*;  «,  la 
called  the  i**  element  A  tuple  with  a  elements  is  called  an  n-tuplr  We  define  the  following 
f  unctions  on  tuples 


I  For  operations  of  the  built  in  types  secondary  side  effects  occur  when  a  subsidiary  abstraction 
performs  unwanted  side  effects  For  example,  side  effects  are  not  expected  when 
•rrayf  Tit  similar  rails  Ttsimilar.  bsit  their  absence  cannot  be  guaranteed 
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Built -m  Type*  and  Type  Generators 


til 


A  -  B  •  <Sue<A>  -  Sue<B»  a  (Vi  I  IsisSitefAlXa,  •  bl 

<a.  ..  b>  I  <c.  „.,d>  •  <a. ....  b.  c . d> 

FronK«a.  ...  b,  c»>  •  «a. .  .  b> 

TaiK<a,  b.  ..  c»>  ■  <b.  ...  c» 

Tail°tA>  ■  A  and  Tair'(A)  •  TaiKTatHAH 
Occurs  A.  B.  D  •  • 3C..DK <  B  -  C  I  A  I  D>  a  <Site<0  >1-1)) 

If  Occurs!  A.  B.  l>  holds.  we  uy  that  A  occurs  in  B  at  index  I 

11.1.  Null 

There  it  one  immutable  object  of  lype  null,  denoted  nd 

equal  proctype  (null,  null'  returns  <boob 

Simitar  proctype  <nuN  null'  returns  (boob 

Both  operation!  always  return  true 

copy  proctype  tnuffl  returns  <nud> 

Copy  atwayi  returni  nd 

11.2.  Bool 

There  are  two  immutable  objects  of  type  boot,  denoted  true  and  false  Thete  objects 
represent  logical  truth  values 

and:  proctype  ' boot,  boob  returns  (boob 

or:  proctype  (bool  boob  returns  <boob 

not:  proctype  (boob  returns  (boob 

These  are  the  standard  logics  I  operations 

•quel:  proctype  (bool  boob  returns  (boob 

stmtlsr:  proctype  (bool  boob  return#  (boob 

Thete  two  operations  return  true  if  and  only  if  both  arguments  are  the  tame  object 

copy  proctype  'boob  retuma  (boob 

Copy  simply  returns  its  argument 


Ini 
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II. 3.  Int 

Objects  of  type  Int  are  immutable.  and  ire  intended  to  model  the  mathematical  integers. 
However,  the  only  restriction  placed  on  an  implementation  Is  that  some  closed  interval 
(Int  Min.  Int  Mat)  he  represented,  wuh  Int  Min  «  0  and  Int  Max  >0  An  overflow  exception 
is  signalled  by  an  operation  if  the  result  of  that  operation  would  lie  outside  this  Interval 

add  proctype  'Int.  Int1  returns  'Int'  signals  (overflow) 

sub  proctype  <lnt  Int'  returns  *  Int*  signals  (overflow) 

mul  proctype  (Int  Int’  returns  <lnt>  signals  (overflow) 

The  standard  integer  addition,  subtraction,  and  multiplication  operations 

minus  proctype  <lnt)  returns  <lnt>  signals  (overflow) 

Minus  returns  the  negative  of  its  argument 

div  proctype  'Int.  Int*  returns  'inf  signals  (rero.divide.  overflow) 

Div  computes  the  integer  quotient  of  argl  and  a’g2 
Jr  (<f)  s  r  «  a  (argl  .  arg2»rti  .  r >1 

Zero.dmde  occurs  if  arg2  •  0 

mod  proctype  'Int  !nt>  returns  ' Int'  signals  <iero_divide,  overflow) 

Mod  computes  the  integer  remainder  of  dividing  argl  by  arg2  That  Is. 

}q  [<0  s  rri  «  a  <a tgl  -  arg’iq  •  re j) ) 

Zero  divide  occurs  if  atg 2  -  0 

power  proctype  tint.  Int'  returns  *  Int'  signals  (negative_e*ponent.  overflow) 

This  operation  computes  argl  raised  to  the  atg2  power  Power<0. 0)  •  1. 
Negative  exponent  occurs  if  arg2  <  0 

from  to  by  Itertype  'Int.  Int  Inf  yields  'Int* 

This  iterator  yields  in  succession,  argl,  argl  •  argl,  argl  ♦  2 *arg1.  etc  ,  as  long  as  the 
vahie  lo  yield  *.  satisfies  *  ?  arg?  when  argi  >  0.  or  arg2  s  x  when  argl  <  0  The 
iterator  continually  yields  argl  if  a’gl-  0  The  iterator  yields  nothing  when 
(argl  »  arg’t  a  (argl  *  0>  or  when  <argl  «  arg2>  a  (argl  <  0) 

from  to  Itertype  dnl  Int*  yields  <int* 

from  t&argl.  arg2l  is  equivalent  to  f  torn  Jo  _bf  argl,  arg2.  D 
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parse  proctype  (string)  returns  lint)  signals  (bad. format,  overflow) 

Thu  operation  computes  the  exact  value  corresponding  to  an  integer  literal.  The 
argument  must  be  an  integer  literal,  with  an  optional  leading  plus  or  minus  sign 
Rad.format  occurs  if  the  argument  is  not  of  this  form 

unparse  proctypa  <»nt>  returns  (string) 

Unparse  produces  an  integer  literal  such  that  parsefunparsetarg f»  •  argl  Leading 
zeros  are  suppressed,  and  no  leading  plus  sign  is  added  for  positive  Integers. 

It  proctype  <lnt.  Int>  returns  (bod' 

le  proctype  dot.  Inf  returns  <bod’ 

ge  proctype  dnt.  Inf  returns  'bool' 

gt  proctype  dnt  Int'  returns  'bool' 

The  standard  ordering  relations 

equal  proctype  dnt.  Int>  returns  'bool' 

similar  proctype  dnt  Int'  returns  (bool' 

These  two  operations  return  true  if  and  only  if  both  arguments  are  the  same  object 

copy  proctype  <lnt>  returns  (Inf 

Copy  simply  returns  its  argument 

II. 4.  Real 

Objrcts  of  type  real  are  immutable,  and  are  intended  to  model  the  mathematical  real  numbers 
However,  only  a  subset  of 

D  -  (  Real  Mas.  Real  Min)  U  10)  U  [Real  Min.  Real  Mas) 

need  he  represented  where  0  *  Real  Min  «  I  «  Real  Mas  Call  this  subset  Real  We  require  that 

both  0  and  I  he  elements  of  Real  If  the  exact  value  of  a  ;eal  literal  lies  In  D.  then  the  value  In 
CLU  Is  given  by  a  function  Approx,  which  satisfies  the  following  axioms 

V  r  t  D  Approxd*  t  Real 

V  r  t  Real  Approxd)  -  r 

V  r  t  D  -  10)  |<  Approxd)  -  r)/r|  <  I0*'P 

f  rsi  D  r  s  s  -•  Approxd)  s  Approxd) 

V  r  t  D  Approxf-r)  -  -Approxd) 

The  constant  p  is  the  piKtUcn  of  the  approximation,  and  must  he  at  least  7 

We  define  Mas  width  and  Fsp  width  to  he  the  smallest  integers  such  that  every  non  zero 
element  of  Real  can  he  represented  in  "standard*  form  (exactly  one  digit,  not  zero,  before  the 

decimal  point)  with  no  more  than  Max  width  digits  of  mantissa  and  no  more  than  Exp  width 


dig lli  of  exponent 


add 
sub 
mu  I 
minus 
div 


power 


l2r 


r?l 


trunc 


proctype  (real.  real'  returns  (real'  signals  (overflow,  underflow) 
proctypa  (real,  real’  returns  (real)  signals  (overflow,  underflow) 
proctype  (real  real'  returns  (real'  signals  (overflow,  underflow) 
proctype  (real'  returns  (real' 

proctype  (real,  real'  returns  (real)  signals  (iero_divtde.  overflow,  underflow) 

These  operations  satisfy  the  following  axioms 

!>  (a.b  »  0  v  i  b  ;  0)  -♦  addla.  b>  -  Approxla  ♦  b) 

2)  add(a.  b>  .  (I  .  <><a  .  b)  |«|  «  I01  P 

?)  addla.  0>  «  a 

t*  add<a.  b)  -  add<b.  a' 

V  a  <  a’  -•  add<a.  b>  <  addla’,  b> 

6>  minus'a)  -  -a 

7)  sub<a.  b'  •  addla,  b' 

8'  muKa.  b)  *  Approxla  •  b) 

9>  div<a.  b’  -  Approxla  /  b' 

In  axiom  2.  the  value  of  p  is  the  same  as  that  used  in  defining  Approx  Note  that  the 
infix  and  prefix  expressions  above  are  computed  over  the  mathematical  real  numbers. 
The  axioms  only  hold  if  no  exceptions  occur  An  exception  occurs  If  the  result  of  an 
exact  computation  lies  outside  of  D.  overflow  occurs  if  the  magnitude  exceeds 
Real  Max  and  underflow  occurs  if  the  magnitude  is  less  than  Real  Min  Zero_divlde 
occurs  if  arg2  •  0 

proctype  (reel,  rear  returns  (reaP 

signals  <rero  divide,  complex. result,  overflow,  underflow) 

This  operation  computes  a'gl  raised  to  the  arg 2  power  Zero.dlvide  occurs  If 
(<jCjf/  -  0)  a  iii'g'  •  0>  Complex  result  occurs  if  argl  <  0  and  atg2  is  non-integral. 
Overflow  and  underflow  occur  as  explained  above 

proctype  ( Inf  returns  (real’  signals  (overflow) 

I2r  returns  a  real  number  corresponding  to  the  argument  rej  •  Approx<argf)  Overflow 
occurs  if  argl  lies  outside  the  domain  D 

proctype  <reaP  returns  <lnt'  signals  (overflow) 

R2l  rewinds  to  the  nearest  integer  and  toward  lero  in  case  of  a  tie 
(|rej  -  ar  <  l/2>  A  <|rr,|  ,  |arjf/j  .  |/?> 

Overflow  occurs  if  the  result  lies  outside  the  domain  for  CLU  integers 

proctype  (real)  returns  < lot*  signals  (overflow) 

Trunc  truncates  its  argument  toward  re ro  (|rri  -  argf)  <  1)  a  (|rrij  S  («rg/|)  Overflow 
occurs  If  the  result  lies  outside  the  domain  for  CLU  integers 
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exponent 
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parse 


unparse 
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equal 

similar 
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proctype  1  rear  returns  <lnt*  signals  (undefined) 

This  operation  returns  the  exponent  that  would  be  used  in  representing  argl  as  a  literal 
in  standard  form  rrs  .  maxli  I  |arg/]  >  10*1  Undefined  occurs  if  argl  -  0  0 

proctype  <real>  returns  <reat> 

This  operation  returns  the  mantissa  of  argl  when  represented  in  standard  form 
res  .  Appro x<«rg/  /  Vf'P onrm<a,<,,> 

If  r  *  0 0  the  result  is  0 0 

proctype  (string*  returns  (real'  signets  (bad  format.  overflow,  underflow) 

This  operation  computes  the  exact  value  corresponding  to  a  real  or  integer  literal,  and 
then  returns  the  result  of  applying  Approx  to  that  value  The  argument  must  be  a  real 
or  integer  literal,  with  an  optional  leading  plus  or  minus  sign  Badjormat  occurs  if  the 
argument  is  not  of  this  form  Overflow  occurs  if  the  magnitude  of  the  exact  value  of 
the  literal  exceeds  Real  Max  underflow  occurs  if  the  magnitude  is  less  than  Real  Min 

proctype  (real'  returns  (string1 

Unparse  produces  a  real  literal  such  that  parse<unparse<arf/)>  -  argl  The  general  form 
of  the  literal  is 

[  ^  field  f  fielder  t >  /ir/if] 

l  eading  teros  in  i  field  and  trailing  mas  in  f. field  are  suppressed  If  argl  is  integral 
and  within  the  range  of  Cl  II  integers,  then  /  field  and  the  exponent  are  not  present 
If  argl  can  t>e  represented  by  a  mantissa  of  no  more  than  Max  width  digits  and  no 
ex|>onmt  <i  e  I  •  exponent'arj/i  .  Max  width),  then  the  exponent  Is  not  present 
Otherwise,  the  literal  is  in  standard  form,  with  F.xp  width  digits  of  exponent 

proctype  (reel  reeP  returns  'bool' 
proctype  (reel  reel'  returns  (bool' 
proc type  ( reel  reel  returns  (booP 
proctype  (reel  reel'  returns  (bool' 

The  standard  ordering  relations 

p, octype  (reel  reeP  returns  'booP 
proctype  'reel  reeP  returns  (booP 

These  two  operations  return  true  if  and  only  if  brth  arguments  are  the  same  object. 


copy 


proctype  (reeP  returns  (reeP 
Copy  simply  returns  Its  argument 


Char 
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s\l* 

11. 5.  Char 

Objects  of  type  char  arc  immutable.  and  represent  characters.  Every  implementation  must 
provide  at  least  128.  but  no  more  than  M2,  characters  Characters  are  numbered  from  0  to  some 
Char  Top  and  this  numbering  defines  the  ordering  for  the  type  The  first  128  characters  are  the 
ASCII  characters  in  their  standard  order 

i2c  proctype  'mt1  returns  <ch«n  signals  ( illegal .cha r > 

12c  returns  the  character  corrrs|>onding  to  the  argument  lllegaLchar  occurs  if  the 
argument  is  not  in  the  range  10.  Char  Top] 

c2t  proctype  <  char1  returns 'Inf 

T  his  operation  returns  the  number  corresponding  to  the  argument 

It  proctype  t  char  char'  returns  1  bool' 

le  proctype  ‘  char  char*  returns ‘bool* 

ge  proctype  'char  chart  returns  ’bool' 

gt  proctype  '  char  char'  returns  1  bool1 

T  he  ordering  relations  consistent  with  the  numbering  of  characters 

equal  proctype 'char  char'  returns  <  bool' 

similar  proctype  < char  char'  returns  1  boot1 

These  two  opera'ions  return  true  if  and  only  If  the  two  arguments  are  the  same  object. 

copy  proctype  'char'  returns  (char' 

Copy  simply  returns  its  argument 

11. 6.  String 

Obyrr's  of  type  string  are  immutable  Each  string  represents  a  tuple  of  characters  The  t,l> 
character  of  the  string  is  the  i'k  element  of  the  tuple  There  are  an  infinite  number  of  strings,  but 
an  implementation  need  only  support  a  finite  number  Attempts  to  construct  illegal  strings  result  In 
a  failure  eyrepnon 

il/e  proctype  'string'  returns  dot' 

This  operation  simply  returns  the  sire  of  the  tuple  represented  by  the  argument 


empty  proctype 'string'  returns  ' bool' 

This  operation  returns  true  if  and  only  if  siretfl'iffl  -  0 
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String 


indrit  proctype  ' tiring  string*  return*  <lnt> 

If  arfl  occurs  in  this  operation  return!  the  Iran  index  a  I  which  argl  occurs 

rrj  -  minlt  I  Occurtlergf.  «rg2,  »>) 

Note  'hat  the  result  is  I  if  argl  is  the  0  tuple  The  result  it  0  if  argl  does  noi  occur 

indent  proctype  <cher.  string)  return*  tint' 

If  •arg/»  occurs  in  arg2  the  result  it  the  Iran  inde*  at  which  *argh  occurt 
rei  -  minli  I  Occurs <«arj/».  arg2.  I*) 

The  result  It  0  if  *argl>  does  not  occur 

c?i  proctype  (cher*  returns  (string' 

I  hit  operation  recurnt  the  tiring  representing  the  I  tuple  «arg/> 

concat  proctype  (string  string*  returns  (string* 

Ccmcat  returnt  the  string  representing  the  tuple  argl  K  a’g2 

append  proctype  '  string  cher*  returns  <  string* 

T  hit  operation  returnt  the  string  representing  the  tuple  argl  I  *arg2> 

fetch  proctype  ‘string.  Int*  returns  (cher*  signals  (bounds) 

Fetch  returns  the  U'g.’*  character  of  argl  Bounds  occurs  if  arg2  <  I  or 
arg2  >  si ir<argP 

rest  proctype  ‘string  int*  returns  (string*  signals  ‘bounds) 

The  result  of  this  operation  is  Tair,?  Bounds  occurs  If  arg2  <  I  or 

a'g2  *  suHargf)  .  I 

substr  proctype  ‘  string  Int  int*  returns  '  string  signals  ‘bounds,  negative, sue* 

If  <i'g»  •  site- rest1  cgf  a'g’",  (be  result  is  the  string  representing  the  tuple  of  ute  arg) 
which  occurs  in  o>ft  at  inde*  arg?  Otherwise  the  result  it  rrsberg/.  arg2>  Bounds 
occurs  if  arg?  .  I  or  a< g.'  »  sitr-a-gf)  .  |  Negative  sire  occurs  if  «'f  >  «  0 

s?ac  peoc  type  <  string  returns  <  erre^  cher)* 

This  operation  places  the  characters  of  the  argument  at  elements  of  a  new  array  of 
characters  T  he  low  bound  of  the  array  it  1  and  the  sue  of  the  array  Is  utetargP  The 
t,k  element  of  the  array  it  the  l*  character  of  the  strrng 

ac?s  proctype  <  erreyf  cher  I’  return*  (string') 

Ac^s  serves  as  the  inverse  of  t?ac  The  result  it  the  tiring  with  characters  in  the  same 
order  at  in  the  argument  That  it.  the  i**  character  of  the  result  Is  the 
<1  •  low‘ere/1  -  P*  element  of  the  argument 


Siring 
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proc  type  •  string1  returns  <  sequence!  char)) 


Tim  operation  trantforrm  j  tiring  into  s  tequencr  of  characters  The  me  of  the 
Maumee  it  tuecjr  j/>  1  he  i**“  element  of  (he  sequence  it  the  i'*  character  of  the  itring 

proctype  «  sequence*  char))  returns  (string* 


Sc?t  servet  at  (he  invetve  of  t?tc  The  retuh  it  the  itring  with  characters  in  the  same 
order  at  in  the  argument  That  it  the  i'*  character  of  the  retuk  it  the  |H  element  of  the 
argument 

Itertype  'string1  yields  char* 

I  hit  iterator  yirldt  in  order  eath  chaiactrr  of  the  argument 


proctype  string  string  returns  bool 
proctype  1  string  string1  returns  •  bool' 
proctype  'string  string'  returns  'bool* 
proctype  'string  string'  returns  'bool 

T  hc\r  ate  the  mint  lettuyraphK  ordering!  bated  on  the  ordering  for  characters  The 
It  operation  it  equivalent  to  the  following 

It  •  proc  U  y  string1  returns  'bool1 
tire  a  mt  -  strlngtiire1  a* 
tire  y  lot  -  strlnglmrCy* 
min  (nt 

If  tire  a  •  -  tire  y 
then  mm  -  me  a 
else  min  -  tire  y 

end 

foe  i  lot  In  Inttfrom  to*  I  mm*  do 

If  a(  i)  ---  yf,  i  ]  then  return*a(i)  <  fft)>  end 
end 

return*  tire  a  «  me  y* 
end  h 


proctype  <  string  string  returns  ‘  bool’ 
proctype  'string  string1  returns  'bool1 

Their  two  operation  mum  true  if  and  only  if  both  argumentt  are  the  same  object 

proctype  'string*  returns  'string1 

(  ops  nmpty  return  ill  argument 
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II  .7.  Array  Typ*. 

The  array  type  generator  detines  an  infinite  class  of  types  For  every  type  T  there  it  a  type 

arrayf  D  Arrays  are  mutable  objects  The  trair*  of  an  object  of  type  arrayfT)  comma  of 

a>  an  integer  Low.  called  ihe  low  bound,  and 

b)  a  ruple  Flit  of  objects  of  type  T.  tailed  ihe  elements 

We  alto  define  Site  •  Sue*Flts'.  and  High  •  low  ♦  Sue  I  We  wan)  lo  think  of  the  etrmmls  of 

EHa  at  being  numbered  from  low.  to  we  define  Ihe  array jndea  of  (he  I*  element  to  be 

( I  •  I  ow  I  » 

For  any  array  low  High  and  Siir  mutt  be  legal  integert  Any  attempti  to  create  or  modify 
an  array  in  violation  of  thu  rule  results  in  a  failure  esception  Note  that  for  all  array  operation!. 
If  an  exception  oiher  than  failure  occurs.  the  states  of  all  array  arguments  are  unchanged  from 
those  at  the  time  of  invocation 

create  proc typo  'Ini'  return*  < array!  T)> 

T  hit  operation  returns  a  new  array  for  which  I  ow  it  argf  and  Fit*  It  the  (l  tuple 

new  proc  type '>  returns  1  array!  T  )' 

T  his  is  equivalent  to  create*!' 

predict  proc  type  <  Int  int  return*  <  array!  I  )' 

Predict  is  essentially  the  same  as  create* (I’gP.  in  that  it  returns  a  new  array  for  which 
I  nw  is  •}'(!  and  Fits  is  the  0  'uple  However,  if  «’f '  is  greater  than  (lets  than)  0.  It  it 
assume*  that  at  least  U'f.i  addh's  taddfs'  will  be  performed  on  the  array  Thete 
subsequent  nper ations  may  es  acute  somewhat  faster 

low  proc  typa  <  array*  Tl>  return*  Inf 

high  proc  typa  1  array!  T )’  return*  'int' 

me  proc  type 'array!  T]'  returns 'Int' 

These  operations  rriurn  I  nw  High  and  Site  respectively 

empty  proc  type  <array!Tl’  return*  'bod' 

This  operation  returns  true  if  and  only  if  Site  •  0 


I  For  an  array  A.  we  should  properly  wme  li»w#  etc.  ro  refer  lo  the  Hate  of  that  particular 
object,  but  uihvripcs  wilt  be  dropped  when  the  association  seems  clear 
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Mi  low  proctype  '  array4.  D.  int'  PSE 

Set  low  make*  I  ow  equal  lo  argj 

trim  proctype  <  array!  T).  Int  lot1  signals  'hound*.  negative  »ue>  PSE 

Thi*  operation  maket  Low  equal  (o  a'[2.  and  make*  Elta  equal  to  (he  tuple  of  me 
mmiarjf.  High’  a>g2  •  II  which  occur*  in  Elt*'  at  index  arg2  -  Low'  *  I  *  That  I*, 
every  element  with  a'ray  index  leu  than  a’g2.  or  greater  than  or  equal  to  arg?  »  org*. 
i'  removed  Round*  occur*  it  e<g2  *  Low’  or  a>g2  »  High’  ♦  I  Negallve_ute  otcurt  If 
(jfgt  «  0  Note  that  thi*  operation  it  tomewhat  like  strtngltubMr 

fill  proc type' Int  Int  T>  return*  < array!  T)'  ilgnal*  (negative  met 

Fill  rreatei  a  new  array  for  whirh  I  ow  it  argl  and  FH»  It  an  erg^-tuple  in  which  every 
element  it  «' g  >  Negative  tire  occur*  if  a> g2  *  0 

fill  copy  proctype  int  Int  T 1  return*  ' array*. T )>  signals  'negative_me>  SSE 

where  1  ha*  topy  proctype  < T *  return*  (T> 

Thu  operation  it  equit  alent  to  the  following 

fill  iopy  -  proc  nlow  ntire  Int  elt  T*  return*  <at>  (Ignat*  <negative_tire> 

where  T  has  copy  proctype  <T>  returns  <T) 

at  •  array!  T) 

If  nu/e  «  0  then  signal  negative  tire  end 

*  at  -  attpredKt'nlow  niirel 
for  i  Int  In  Intlf  rnm  tcVl.  nitre'  do 
atladdh'x.  Ttcoppelt'l 
end 

retuerv  O 

end  fill  copy 

fetch  proctype  1  array!  Tl  Int'  return*  < T *  signal*  < hound 0 

Fetch  returnt  the  eker-tent  of  3’gl  with  array  indr*  a* g2  Bound*  occur*  If  arg2  <  Low 
or  4f g?  »  High 

hot  tom  proctype  <  array!  TP  return*  <  T '  signal*  'bound*' 

top  proctype  '  area/  T  I'  return*  iT*  signal* 'hound*' 

T  hete  nperatmm  return  the  elemeott  with  array  index et  lew  and  High.  respectively. 
Round*  occur*  if  Sue  •  0 

More  proctype  ‘  array!  Tl.  Int.  T'  signals  'hound*'  PSE 

Store  make*  Fit*  a  new  tuple  which  differ*  from  the  old  in  that  erg?  I*  the  element 
with  array  index  «cg’  Round*  occur*  if  a’g2  «  Low  of  arg2  »  Nigh 


l  Fit*’.  High",  etc  refer  to  the  Mate  jiim  prior  to  invoking  the  operation 
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»ddh 


add  I 


remh 


runl 


elem entt 


Indexes 


equal 
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proc  type  ( array!  Tl.  T>  PSE 

Thu  operation  makes  Ells  the  new  tuplr  EH*'  I  ««r{2» 

pro ctype  <  array!  T),  T>  PSE 

Thu  operation  miln  I  ow  rquil  to  1  o*'  -  I.  and  makes  Ella  thf  tuple  *ttg2 *  I  Ella* 
l>ei  rementing  low  k reps  the  array  indexes  of  thf  previous  flmmtt  the  vamp 

proc type  <aeray(T)>  return*  <T>  signals  <bounda>  PSE 

Remh  makes  EHa  thf  tupkf  Front*  Ells’*.  and  rfturm  thf  dflftfd  element  Round i  occurs 
if  Slip'  •  0 

proctypa  <  array!  Tl*  return >  <T>  algnali  tboundt*  PSE 

Reml  mjkn  low  equal  to  |o«'  •  I.  makes  Elt»  thf  tuplr  TaiREIfa’).  and  returns  the 
deleted  element  Incrementing  Low  keeps  thf  array. indexes  of  thf  remaining  elements 
thf  vame  Rounds  occurs  if  Siif'  -  0 

Itartype ‘array!  Tl*  yields  <  T * 

Thu  iterator  u  equivalent  to  thf  (oltowin| 

elements  •  liar  <x  at*  yields  <T* 
at  -  array4.  Tl 

foe  t  Int  In  Inflf rom  to<attlow<x*.  atthightxl*  do 
yield*  x  111* 
and 

and  elements 

Itartypa  ‘array!  Tl*  yields  <  *nt* 

Thu  iterator  it  equivalent  to  Inttfrom  to*Low'.  High’* 

peoctyp#  <arra/T).  array!  Tl*  raluena  ‘bool* 

Equal  returns  true  If  and  only  if  both  arguments  are  the  same  object 


Att»y  T yprv 


III 


sin 


umilai  proctyp*  'arriyH  1  prriylT)'  ftlurni 'boof1 

where  1  has  umilar  proctype  <T.  1  >  returns  <boo*> 

1  hi!  operation  i»  equivalent  lo  the  following 

umiUr  •  proc  <».  |  at1  return*  'bool' 

where  T  he*  umilar  proc  type  (T.  "P  relume  <boo0 

at  -  erreyl  T I 

If  jif low » i  a  1 1  k>  w*  y  i  cor  *tiu»r<*'  *(*ii»e<y> 

then  return1  fal»e> 
end 

tor  i  Int  In  a'limleirt1 »'  do 

If  ~T  IvimilarUlil  v( •)>  then  return false'  and 
end 

return  true' 

end  vimilar 


wmilii  I 


proc  type  '  array!  T ).  array!  T)'  return*  1  bool'  SSE 

where  T  ha*  equal  proctype  <  T .  T  >  return*  1  boof 

Similar  I  wwki  in  thr  vamr  way  at  umilar.  e*cept  that  Ttequal  li  tiled  Instead  of 
T  Jvimilar 


<opyl  proctype  1  array!  T  )'  return*  1  array!  Tl» 

C  opyl  trrarrt  a  nr»  array  with  (hr  vamr  vtatr  at  (hr  argument 

copy  proctype  ‘array!  T  1*  return*  'array!  T)> 

where  I  ha*  copy  proctype  <TI  return*  <T> 

Thu  operation  it  equivalent  lo  (hr  following 

copy  -  proc  1 »  at'  return*  <at>  where  T  ha*  copy  proctype  <Tl  relume  <T> 
at  -  array!  T  l 
i  -  atlcnpy|<*> 
for  i  Int  In  attindeieV*!  do 

till  -  TtcapyUlil’ 

end 

return  O 
end  copy 


II. 8.  Sequence  Type* 

The  sequence  type  generator  drfinet  an  infinite  clan  of  typei  For  every  type  T  there  I*  a 
type  sequence!  T1  An  object  o'  lype  aequencelT)  comiitt  of  a  tuple  FH».  o!  object*  of  type  T. 
c alV-1  the  elemenrt  of  the  vequrrue  Sequence!  are  immtitihle  object!  *  particular  sequence  always 
repretentt  ecactly  the  ume  tuple  of  object!  However,  if  the  object!  in  the  tuple  are  mutable,  then 
the  «*te  of  thote  object!  may  change 
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F of  convenience.  we  define  Sue  *  SuetElt*)  The  element*  of  a  tffMKt  are  numbered  from  I 
to  Site  For  any  tequencr  Site  mutt  be  a  legal  integer,  any  attempt  to  create  a  teguertce  that 
violates  (hit  rule  rrtukt  in  a  failure  exception 

new  proctype  <>  return*  (aequencef  T  )> 

7  hit  operation  returnt  the  empty  tequencr 

me  proctypo  <  aequencef  T  1’  return*  tint* 

Thit  operation  returnt  Sue 

empty  proctype  (aequencef  Tl'  return*  <boof 
I  mply  returnt  true  if  and  only  if  Sue  •  0 

tut-teq  proctype  <**qu*nc*fT)  Ini  Inf  return*  <»equence(T)> 

•Ignats  (boundt.  negative. me> 

If  <*rg»  5  Sue  a’g2  ♦  I  then  the  rrtuh  tt  the  tuple  of  tire  argj  occurring  in  argl 
ttarting  at  index  aig.’  Other wite.  the  retok  it  the  tuple  Taif*'*?' '(argP  Round t  occur* 
if  ofg2  *  I  or  arg2  •  Sue  •  1  Negative  tire  occur*  if  atg)  <  0 

fill  proctype  <tnt.  T>  return*  < tequencef Tl>  algnela  <neg»five_»ite> 

Fill  returnt  the  lequence  for  which  Fit*  it  the  arg/- tuple  in  which  every  element  I*  (tg? 
Negative  tire  accurt  if  a’gl  «  0 

fid. copy  proctype  <lnt.  T*  return*  t*equence(T1'  algnela  (neg*tive_»liel  SSE 

Thit  operation  it  equivalent  to  the  following 

fill  copy  -  proc  <ntue  Int.  ek  T>  return*  <qt'  algnela  (neg*tive_»lte) 

where  T  hea  copy  proctype  <T)  return*  CP 

qt  -  aequencef  T) 

If  ntur  >  0  then  signal  negative  me  end 
*  qt  -  qttnewti 

for  i  Int  In  tntjf rom.lo<l  ntue>  do 
*  •  qttaddW*  Ttcopy<ek» 

end 

returnt** 
end  f  iN  copy 


fetch 


proctype  < aequencef  Tl.  Int)  return*  <T>  algnela  (bound*) 

Fetch  rrturn*  the  ar g2 *  element  of  erg/  Boundt  occur*  If  er g2  «  I  or  erf 2  >  Slat. 


Ml  » 

bottom 

top 

replace 

addh 

addl 

remh 

reml 

e?* 

concat 

t?a 

element* 

indese* 
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proctype  <  sequence! T)*  return*  <T>  signals  (bound** 
proctype  < sequenced  )*  return*  ( T >  aignala  (bound*) 

These  operation*  return  the  first  and  lau  element!  of  argl,  respectively  Bound*  occur* 
If  Site  -  0 

proc  type  (sequenced)  Ini  T>  return*  (sequenced)*  signal*  (bound*) 

Thu  operation  return!  a  new  sequence  whose  arg2*  element  l>  argl.  but  which  I* 
otherwise  the  vame  at  argl  Bound*  occur!  if  arg2  <  I  or  arg2  »  Sl*» 

proctype  (sequenced).  T>  returns  (sequenced)) 

Addh  return*  the  sequence  repreienting  the  tuple  Elt*  II  «arf  j*v 

proctype  '  sequence)  T)  T  1  returns  <  sequence)  T )> 

Addl  return!  the  iequence  representing  the  tuple  «arg’>  I  Ell* 

proctype  (sequenced)*  returns  < sequence! T)*  signals  (bound** 

Remh  return*  the  sequence  representing  the  tuple  Front<Elt»*  Bound*  occur*  If 
Site  •  0 

proctype  1  sequenced  !*  returns  1  sequenced)*  signals  (bound*) 

Reml  return*  the  sequence  representing  the  tuple  TaiKEl!**  Bound*  occur*  if  Site  •  0. 

proctype  <T>  returns  'sequenced)* 

Thu  operation  return*  the  sequence  repreventing  the  lingleton  tuple  *argl+ 

proctype  'sequenced*  sequenced)*  returns  « sequenced)* 

C  oncat  return*  the  sequence  representing  the  tuple  argl  II  arg2 

proctype  'array!  T I*  returns  'sequenced)* 

Thu  operation  return*  the  tuple  corresponding  to  the  element!  part  of  the  Mate  of  argl 
proctype  < sequence)  T)>  returns  (arrays Tl* 

Thi*  operation  return*  a  new  array  with  low  bound  I  and  with  ENs  at  the  elements  part 
of  the  array  *tate 

Itertype  '  sequence!  T  1*  yields  < T* 

Thi*  iterator  yield*  in  order  each  element  of  Ells 

Itertype  ' sequence!  Tl*  yields  ( test* 

Thu  iterator  i*  equivalent  to  Inttf  rom_lo<l.  Site* 


Ill 
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rquil  proctype  'sequence!  D.  sequence!  T)>  retsirna  (bool*  SSE 

where  T  hat  equal  proctype  <T.  T*  returns  <booC 

Equal  14  equivalent  to  thr  following 

equal  *  proc  <».  y  qi*  returns  (bool1 

where  T  has  umitar  proc  type  <T.  T>  ratuma  IbooO 
qt  -  sequence! T) 

If  qttsirec**  -  -  qrSvire4  y>  then  retum<falsel  end 
for  i  tot  to  qttrnde*es<s*  do 

If  nit)  *.  yf  1 1  then  return* felse>  end 
end 

returto  true* 
end  equal 


simitar  proc  type  1  sequence!  TJ  sequence!  T  )>  returns  (bool*  SSF. 

where  T  has  similar  proctype  <T.  T>  returns  (boo® 

Similar  works  in  the  same  way  as  equal,  except  that  Ttsimilar  is  used  Instead  of 
1 1  equal 


proctype  < sequence!  Tl*  returns  'sequence(T)* 

where  I  has  ropy  proctype  <T>  returns  <T> 

This  operation  is  equivalent  to  the  following 

copy  -  proc  <»  qt>  returns  (qt>  where  T  hes  copy  proctype  <T>  returns  <T> 
qt  -  sequence!  TJ 
y  qt  -  qttnewCi 
for  e  T  to  qtlelemmts'**  do 
y  -  qrtaddh'y.  Tlcopy<f»> 
end 

return*  y* 
end  copy 


II. 9.  Record  Tjrpee 


The  record  type  generator  defines  an  infinite  clast  of  types  For  every  tuple  of  name/type 
pairs  «<N,  T,*.  .  <N#.  TJ*.  where  alt  the  names  are  distinct,  to  tower  case,  and  In  lexicographic 

order  there  is  s  type  record! N (  T,.  .  N.TJ  (However  the  user  may  write  this  type  with  the 

pairs  permuted,  and  may  use  upper  case  letters  in  names*  Records  are  mutable  objects.  The  state 
of  a  record  of  type  record^,  T,.  ,  N.T.l  is  an  n  tuple,  the  t*  element  of  thr  tuple  Is  of  typeTr 
The  l*  element  is  also  called  the  Ni  component 
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(reate  proctype  (T,.  .  T  J  return*  <  record!  N  (  I  (1  .  N^TJI 

Thu  operation  returns  a  new  record  with  the  tuple  <argl,  ,atgN>  at  its  ttate  This 
operation  it  not  available  to  the  uter,  lit  ute  it  implicit  in  the  record  conttructor  <tee 

Section  10  6* 

get  N  proctype  1  record  N  (  T  (  .  TJt  return*  (T^ 

Thit  ojseratron  returnt  the  N  comfxment  of  the  argument  There  It  a  get _N  operation 
for  each  N 

I 

tet  N  proctype  record  N  (  T  TJ.  T 1  PSE 

I  hit  oj>eration  makes  the  state  of  aigl  a  new  tuple  which  differs  from  the  old  in  that 
the  N  component  is  .  •  -2  There  n  a  set  operation  for  each  Ni 

equal  proctype  <  record  N  T'.  N  1  ).  record  N  T ,N  T  )>  returns  <  booO 

11  nn  II  a  a 

Iqual  returns  true  if  and  only  if  both  arguments  are  the  same  object 

timilar  proctype  1  record  N  (  T TJ  record  N  (  T ,  Nb  TJ>  return*  'boot'  SSE 

where  each  T  hat  similar  proctype  <T(.  T  '  returna  'bool' 

Cor  rrsfxsnding  rom|xmrn!s  of  a>(l  and  d’g?  are  compared  in  (lexicographic)  order, 
using  T  {similar  for  the  Ni  components  'The  N  component  of  atg/  becomet  the  flrit 
argument  )  If  a  lompanson  results  in  false  the  result  of  the  operation  it  false,  and  no 
further  comparisons  are  made  If  all  comparisons  return  true,  the  result  it  true 

timilarl  proctype  '  record  N  (  T  ,  N_  T  J  record  N (  T  Tb)>  returns  'boot1  SSE 

where  each  T  has  equal  proctype  <T,  T  '  returns  <booT 

Similar  1  works  in  the  same  way  as  similar  except  that  T  {equal  It  uted  instead  of 
T  {similar 

copyl  proctype 'records,  T(.  N,  TJ>  returns  < record N ,  T N^TJ) 

Copyl  returns  a  new  record  with  the  tame  state  as  the  argument 


- 
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copy  proctype  (recordNj  T(,  .  N^T^))  returns  (record NjTj,  ....  N^T^))  SSE 

where  each  T|  has  copy  proctype  <T()  returns  (T) 

Thu  operation  11  equivalent  (o  the  following  (note  that  the  N(  sre  in  lexicographic 
order): 

copy  -  proc  <  x  rt>  returns  <rt) 

where  T ,  has  copy  proctype  <T ,)  returns  <T ,), 

Tr  has  copy  proctype  iTJ  returns  <TJ 
rt  -  recordlNj  T,,  ,  N^TJ 

x  -  rtScopyl<x> 
x  N(  -  T,tcopy<x  N(> 

x  N.  -  TB$copy<x  NJ 

return<x> 

end  copy 

II. 10.  Structure  Types 

The  struct  type  generator  define'  an  infinite  clats  of  type'  For  every  tuple  of  name/type 
pair*  «<N(  T,».  .  (N,.  TJ>.  where  all  the  name*  are  ditunct.  in  lower  ca»e.  and  in  lexicographK 

order,  there  it  a  type  struct!  N(  T,.  .  TJ  (However  the  uter  nuy  write  this  type  with  the 

pair*  permutert.  and  may  ute  upper  cate  letters  in  name*)  Structure*  are  immutable  object*.  A 
tincture  of  type  struct N,  T,.  .  N^TJ  it  an  n  tuple,  the  i*  element  of  the  tuple  It  of  type  T#. 

The  |**  element  u  alto  called  the  N  component 

create  proctype  <T(.  .  T^  returns  (structNj  T)t  .  N^TJI 

Thit  operation  return*  the  ttrtKture  repretentmg  the  tuple  <arg orgN  >  Thl* 
operation  it  not  available  to  the  uter.  in  ute  u  implicit  in  the  Uructure  con*;  rue  tor  <*ee 
Section  10  ft) 

get.Ni  proctype  <  struct!  N,  T,.  .  N,  TJ>  returns  <Tt» 

Thit  operation  return*  the  N  component  of  the  argument  There  I*  a  get_N.  operation 
for  each  N 


replace. N.  proctype  < struct N  y  T ,,  .  N,  TJ.  Tt>  returns  (struct N ,:T N^.TJ) 

Thit  operation  return*  the  tuple  corresponding  to  erg/  with  It*  N(-component  replaced 
by  arg’  There  it  a  replace  N  operation  for  each  N_. 

»2r  proctype  (strucfN,  T,.  .  N.TJl  r*twrr>»  (record N,  T,. N^TJ) 

S?r  return*  a  new  record  whose  initial  Mate  u  the  tuple  represented  by  the  argument. 
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proctyp*  (recofdIN  T.,  ,  N  T  J>  return*  (structfN  T . .  N  T  )l 

r  r  li  nn  ir*«n 

R2s  returns  the  structure  represenfing  the  tuple  (hat  it  the  current  state  of  the  argument. 

proctype  '  struct!  N  (  T  r  TJ.  struct! N  (  T  Tw)>  return*  < bool'  SSE 

where  each  !  has  equal  proctype  (T,  T(>  return*  'bool' 

Corresponding  components  of  ci’gl  and  atgj  ate  compared  in  (lexicographic)  order, 
using  T  Srqual  for  (hr  N  com|>onrnts  (The  N  corriponenl  of  at  gl  becomes  ihe  first 
argument  >  If  a  comparison  results  in  false  (hr  result  of  ihe  operation  is  fata*.  and  no 
further  comparisons  are  made  II  all  comparisons  return  true,  the  result  is  true 

proctype  <  struct!  N  (  T  1  J.  struct!  N  (  T  (,  .  Nb  TrJ)  return*  (boof  SSE 

where  each  T  ha*  similar  proctype  (T,.  T  )  returns  <bool> 

Similar  worts  in  (hr  same  way  as  equal  except  that  Ttsimilar  is  used  instead  of 
T  Jequal 

proctype  1  struct!  N  f  T  TJ*  returns  ( struct!  N  (  T  (,  .  N^TJ)  SSE 

where  each  I  has  copy  proctype  <T  '  returns  (T  l 

This  operation  is  equivalent  to  the  following  (note  (hat  the  N(  are  in  lexicographic 
order* 

copy  -  proc  (x  si>  return*  <st> 

where  T  hss copy  proctype  <T ,'  returns  <T , >. 

T,  has  copy  proctyp*  < Tw>  returns  (TB> 
st  -  struct! N j  T,.  .  N. TJ 
return's!!!^  T , JcopT x  N (). 

N.  T.Jcopyf*  NJD 

end  copy 

II. 11.  Oneof  Types 

The  oneof  type  generator  defines  an  infinite  class  of  types  For  every  tuple  of  name/type 
pairs  *<N  T,'  (NT  *>,  where  all  of  the  names  are  distinct,  in  lower  case,  and  In 

lexicographic  order,  there  is  a  type  oneof!N(  T(.  .  N^TJ  (However  the  user  may  write  this  type 

with  the  pairs  permuted,  and  may  use  upper  case  letters  in  names*  Oneof s  are  Immutable  objects 
Each  oneof  represents  a  name/object  pair  (N_.  X*.  where  X  Is  of  type  Tt  For  each  object  X  of 
type  T  there  is  a  oneof  for  the  pair  *N.  X*  N_  is  called  the  tag  of  the  oneof.  and  X  It  called  the 
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make  N 

I 


is  N 

I 


value  N 

I 


o2v 


v?o 


equal 


similar 


copy 
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proctype  (T>  returns  (oneoftN!  T(.  ..  Tb1> 

This  operation  returns  (hr  oneof  for  ihr  pair  iN_.  argl)  There  Is  a  make  _Ni  opr  ration 
(or  rach  N 

I 

proctype  (oneoflNj  T,.  ....  N^TJ)  returns  < bool' 

This  operation  rn urns  true  if  and  only  if  thf  tag  of  the  argument  is  hT  There  Is  an 
is  N  operation  for  rach  N 

proctype  (oneoffN'  T,,  .  T  I*  returns  <T>  signals  (wrong  lag* 

If  the  argument  has  tag  N.  the  result  is  the  value  component  of  the  argument 
Wrongjag  occurs  if  the  tag  is  othet  than  N  There  is  a  value, Nt  operation  for  each 
N 

proctype  (oneoflN!  T,.  .  TJ>  returns  (variant N (  T ..  N^T^H 

This  operation  returns  a  new  variant  with  an  initial  state  that  has  the  same  rag  and 
value  as  the  argument 

proctype  (variant!  N  (  T  ,.  .  TJ'  returns  loneoff  N  (  T  ,.  T^JI 

This  ojreration  returns  the  oneof  with  the  same  tag  and  value  as  the  current  state  of  the 
argument 

proctype  1  oneofl  N  T  .  N  T  ),  oneof!  N  T  .  N  T  I’  returns  <  booP  SSE 

where  each  T  has  equal  proctype  (T,  T  )  returns  (boot' 

If  argl  and  have  different  tags  the  result  is  false  If  both  tags  are  N(.  the  result 

is  that  of  tnvok  ing  T  tequal  with  the  two  value  components 

proctype  1  oneof!  N  (  T  ,.  N>  TJ,  oneof!  N  (  T f TJ)  returns  ( booP  SSL 

where  each  T  has  similar  proctype  (Tr  Tt>  returns  <booP 

If  argl  and  arg."’  have  different  tags,  the  result  is  false  If  both  tags  are  Nt,  the  result 
is  that  of  invoking  T  {similar  with  the  two  value  components 

proctype 'oneoffN!  T,.  TJ)  returns  < oneoff  N (  T N> TJ)  SSE 

where  each  J  has  copy  proctype  <Tt  returns  <Tt> 

If  argl  represents  the  pair  (N,  \),  then  the  result  ts  the  oneof  for  the  patr 
<N_.  T  lcopyt \ )) 
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11.12.  Variant  Types 

The  variant  type  generator  defines  in  infinite  class  of  types  For  every  tuple  of  name/type 
purs  «<N(.  Tj*.  ,  fN^.  Tr>».  where  ill  of  the  names  ire  distinct,  in  lower  case,  and  in 
lexicographic  order,  there  is  i  type  varlantfl^  T,.  .  N^T^J  iHowever  the  user  may  write  this 

t yj>e  with  the  pun  |>er  muted  and  miy  use  upfier  cise  letters  in  names!  Variants  are  mutable 
oh  jei  t  s  The  stite  of  a  vitunt  consists  of  i  name/object  pair  (Nt.  X).  where  X  is  of  type  T.  For 
ruh  ob yri t  \  of  type  [  there  is  1  stite  N  \)  N  is  called  the  current  tag  of  the  variant,  and  X 
is  called  the  (urrent  value 

make  N  proctype  *  1  *  returns  'variant^  T(.  T^ll 

I  his  operation  returns  a  new  variant  whose  initial  state  is  the  pair  <N  .  a rgf)  There  Is 
a  make  N  operation  for  eaih  N 

change  N  proctype  t variant! N (  T ,.  .  N^TJ.  T1  PSE 

This  ope-aunn  t hinges  the  state  of  a’gl  to  he  the  pair  <Nt.  arg2>  There  is  a  changej^ 
operation  for  rath  N 

is  N  proctype  •  variant  N  (  T  ,.  TJ*  returns  <bool' 

This  operation  re-urns  true  if  and  only  if  the  cutrenl  tag  of  the  argument  is  N  There 
is  an  is  N  invention  fot  earh  N 

value  N  proctype  variant^  T  TJ’  returns  <T'  signals  (wrong  tag) 

If  the  current  *ag  of  the  argument  is  N(.  then  the  currrnt  value  component  is  returned. 
Wrong  tag  onurs  if  the  current  tag  is  other  than  N  There  is  a  value  N.  operation  for 
each  N 

equal  proctype  1  variant!  N  (  T  t  TJ.  variant  N  t  T ,.  TJ>  returns  <  booT 

This  operation  returns  true  if  and  only  it  a'gl  and  atg2  are  the  same  object 

similar  proctype  1  variant!  N  (  T  TJ,  variant  N  (  T (.  .  TJ)  returns  ( boot'  SSE 

where  each  T  has  similar  proctype  <T  T’  returns  <boof* 

If  atf/  and  have  different  tags,  the  result  is  false  If  both  tags  are  Nt.  the  result 

IS  that  of  involin,;  T  tsimdar  with  the  two  value  components 

similarl  proctype  varlant(N|  T  ,.  TJ.  variant! N (  T ,.  TJ)  returns  ( bool)  SSE 

where  each  T,  has  equal  proctype  <T.  T)  returns  fbooP 

If  argf  and  a*g?  have  different  lags,  the  result  is  false  If  berth  tags  are  Nt.  the  result 
is  that  of  invoking  T  lequal  with  the  two  value  components 
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copy r  proctype  <  variant  N(  T(.  TJ*  return*  ( variant  N (  T(.  .  T^D  SSE 

whtr*  each  T  hat  copy  proctype  <T>  return*  (T^ 

II  ihr  current  Mite  of  the  argument  tv  (Nt,  X*.  then  the  result  is  a  new  variant  whose 
initial  Mite  n  <N  .  TjcopytXH 

copyl  proctypa  < variant  N,  T,.  T J>  return*  (variant  N ,  T,.  .  .  T(>)> 

If  the  current  Mate  of  the  argument  n  <Nf.  X>.  then  the  result  is  a  new  variant  whose 
initial  Mate  it  alto  <N  .  X* 

11.13.  Procedure  and  Iterator  Types 

Let  A.  R,  L,.  .  I  „  l*e  ordered  lists  of  t > |»es_  and  let  Np  .  N>  be  diMinct  namet  in  lower  case 

and  in  lexicographic  order  T  hen  there  it  a  type 

proctype  'A'  returns  <R'  signals  <N  (t  L NJl.JI 
and  a  (ype 

ttartype  1  A'  yields  'R>  signals  t N l  ,>.  .  NJl.J) 

(The  liter  may  permute  the  N'l  >T  and  may  live  upper  cate  letter!  in  namet  If  R  it  empty  then 
"returns  <R>*  it  noc  written  l  it  not  written  if  l  n  empty,  and  ‘signals  <  >*  It  not  wrltlen  if 
n  -  0  » 

The  create  operation!  are  not  available  to  the  uver.  routine!  sre  created  by  compiling  module! 
L.et  T  be  a  procedure  <or  irerator'  type  in  the  following 

equal  proctype  ' T.  T>  returns  t  boob 

similar  proctype  <T  T’  returns  'bool' 

T  hne  operation!  return  true  if  and  only  if  both  argument!  sre  fhe  same 
implemenratron  of  the  tame  ahuraction.  with  the  tame  parameter! 

copy  peoctype  <T>  returns  < T> 

Copy  timply  returnt  lit  argument 

11.14.  Any 

The  tyjw  any  it  the  union  of  all  typet  There  are  no  operationt  for  (he  type  any  Thus,  for 
example  no  arreyf  enyltropy  operation  ends 
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Appendix  III  -  Input/Output 

Thu  appendix  describes  a  set  of  standard  "library*  data  type*  and  procedure!  for  CLU, 
provided  primarily  to  uipport  I/O  W r  do  not  conjider  thn  facility  to  be  part  of  the  language 
propter,  but  felt  the  need  for  a  vet  of  commonly  uied  function!  tfiat  have  tome  meaning  on  rrxnt 
lyilrm!  Thi!  facility  i!  minimal  l>e<  ante  we  wished  it  to  be  general.  I  e.  to  be  Implementable,  at 
least  in  large  part  under  almost  any  operating  system  The  facility  also  provide!  a  framework  In 
which  some  other  operation!  that  are  not  always  available  can  be  expressed 

Some  though'  wy*  given  ro  portahihry  of  program!  and  pombly  even  data,  hut  we  expect  that 
program!  dealing  »ith  all  hut  'he  simplest  I/O  will  have  to  be  written  very  carefully  to  be  portable, 
and  might  not  l>e  junta  Mr  no  matter  how  raretul  c>ne  iv 

I  he  following  additional  !*|»es  are  described 

stream  provide!  acceai  to  text  f  ilei 

txtream  provide!  access  to  image  file! 

(lie  name  a  naming  v  heme  for  f ilex 
date  takndar  date  and  time 

No  t>|>e  "file"  e  x  i  !t !  a!  will  be  explained 

III  .1.  Files 

Our  notion  of  file  iv  a  general  one  that  include!  not  only  storage  files  (duk  f ilex',  but  alio 
terminal!  and  ivher  devices  teg  taj>e  drive!'  Fach  file  will  m  general  support  only  a  iubiet  of  the 
ngverationi  described  here 

There  are  two  basic  lindt  of  filet  text  filet  and  image  filei  The  two  kind!  of  filei  may  be 
incompatible  However,  on  any  particular  system  it  mi*  not  be  possible  to  determine  what  kind  a 
given  f  tie  is 

A  text  file  conus’t  of  a  sequence  of  character!  and  n  divided  into  linn  terminated  by  newline 
<"\n’t  characters  A  non  empty  la't  line  might  not  he  terminated  By  convention,  the  Hart  of  a  new 
page  is  indicated  by  placing  a  newpage  t’Npl  character  at  the  beginning  of  the  first  line  of  that 

A  feet  file  will  be  stored  in  the  tmosi  appropriate)  standard  text  file  formal  of  the  local 
nywratmg  system  At  a  resub.  certain  control  characters  <eg  NUL,  CR.  FF.  ~C.  “'Z*  may  be 
ignored  when  written  In  addition  a  system  may  limit  the  maximum  trngth  of  lines  and  may  add 
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(remove*  trailing  iparn  to  (front)  lines 

Image  flirt  arr  provided  to  allow  morr  efficient  storage  of  information  than  it  provided  by 
text  filet  Unlike  text  files.  there  it  no  need  for  image  flirt  to  be  compatible  with  any  local  file 
format,  thui.  image  filet  can  be  defined  more  prrtitely  thin  text  filet 

An  image  file  luntntt  of  a  sequence  of  encoded  object!  Obyecti  are  written  and  read  using 
encode  and  decode  operation!  of  their  types  (Thete  in  turn  will  call  encode  and  decode  on  their 
component!  until  batK  types  are  reached  >  The  objects  ttored  in  an  image  file  are  not  tagged  by 
the  lyttrm  according  to  their  typei  Thui.  if  a  file  n  written  by  performing  a  ipecific  sequence  of 
encode  opera  tram,  then  it  mutt  be  read  back  uung  the  corresponding  sequence  of  decode  operations 
to  be  meaningful 

III. 2.  Pile  Names 

File  names  are  immutable  objrcts  utrd  to  name  filet  The  tystem  file  name  format  is  viewed 

as  contitting  of  four  string  cnmponentt 

directory  specifies  a  file  directory  or  device 
name  rhe  primary  name  of  the  file  <rg  ‘thesis'* 

tuff ix  a  name  normally  indicating  the  type  of  file  (eg  *du*  for  a 

C-1  U  tourre  f  ilr' 

other  all  other  components  of  the  tyvtem  file  name  form 

The  dire,  ro'y  and  efArr  components  may  have  internal  syntax  The  none  and  tuffix  should  be 

thort  identifiers  (for  etample  in  the  TOPS  ?0  file  name  ‘pt  ctkiser  >rrf  Ipt  S*.  the  dlrrttory  is 

'pt  «c hiter -*  the  njnr  it  *rrf*  the  tuffix  it  *lpt*.  and  the  ofAer  is  V  In  the  UNIX  path  name 

'/usr/snyder /do< /ref  man  r‘.  the  drre.fr**y  it  ‘/utr/tnyder/doc*.  the  name  Is  "refman*,  the  tuffix  Is 

"r*.  and  there  it  no  pfAer 

A  null  omponent  hat  the  following  interpretation 

directory  denotes  the  current  ‘working*  directory  (For  examptr.  the 
‘connected  directory*  on  TOPS-20  and  the  ‘current  directory* 
on  UNIX  See  alto  Section  fc  of  ihit  appendix  • 
name  may  he  illegal,  have  a  unique  interpretation,  or  he  ignored 

(For  example  on  TOPS  20.  a  null  name  is  illegal  for  most 
directories,  hut  for  tome  devices,  the  name  it  ignored  ) 
may  he  illegal,  have  a  unique  interrelation,  or  be  ignored 
'For  example,  on  TOPS-20.  a  null  suffix  is  legal,  as  In 
*«rws»foo*  > 
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other  should  imply  a  rfj«»ubl(  default 

I  he  operations  on  fik  names  are 

nfitf  proctype  iilrlng  tiring  tiring,  tiring'  rplurnt  llilr juiw' 

signals  (bad  .format) 

This  operation  creates  4  file  nimr  from  its  lomponents  Atgl  is  the  directory  part. 

is  thr  name  ptn.  >  is  thr  suffix  part,  tnd  arg4  is  the  other  pan  for  the  new 
fik  name  In  thr  process  of  creating  a  file  name,  the  string  arguments  may  be 

trtmformed.  pg  hy  ifUfMilion  of  c j ^  (onvpuion 

yet  dir  proctype  Mik  name*  returns  (tiring1 

get  name  proclypetfik  name'  relurnt  <  tiring1 

get  suf  f  is  proctype  Mik  name'  returns  < siring 

get  other  proctype  Mile  name!  return*  <  string1 

These  operations  return  string  forms  of  the  components  of  a  fik  name  If  the  file 
nanse  was  created  using  the  create  operation,  then  the  sitings  returned  may  be 
different  than  those  given  as  arguments  to  create,  eg.  they  may  be  truncated  Of 
case  converted 


proctype  'string  relurnt  Mik  name'  tignalt  (bad.format' 

This  operation  cteates  a  I ik  nanve  given  a  string  in  the  system  standard  file  name 
syntax 


unparse  proctype  Mik  name1  returrst  'string' 

This  operation  transforms  a  fik  name  into  the  system  standard  fik  name  syntax. 

Wr  require  that 

parse<unpjrseMn''  *  fn 

crrateMndit  fn  name  f  n  suf  f  is.  f  n  other '  *  f  n 
for  all  fik  names  fn  One  implication  of  this  ruk  is  that  there  can  be  no  file  name 
that  can  he  created  by  .rente  hut  not  by  N»»r.  if  a  system  dors  have  fik  names  that 
have  no  string  represen'ahon  in  the  system  standard  fik  name  syntax.  then  aft* 
must  rert  those  f.k  names  as  having  a  had  format  Alternatively,  the  file  name 
synta*  most  he  extended  so  that  it  can  express  all  possibk  fik  names 

male  output  proctype  M.k  name  tiring'  relurnt  <ftk  name'  tignalt  (bad .format' 

This  operation  is  used  by  programs  that  tale  input  from  a  fik  and  write  new  filet 
whose  names  ate  based  on  the  input  fik  name  The  operation  transforms  the  file 
name  into  one  that  is  suitabk  for  an  output  f.k  The  ttansf .novation  is  done  as 
follows  i|'  the  suffix  is  set  to  the  given  suffix  <arg2);  <?'  if  the  old  directory  is  not 
suitable  for  writing  then  it  is  set  to  null.  <V  the  name,  if  null  and  meaningless,  is  sei 
lo  'output*  f Examp ks  of  directories  lhai  may  nol  be  suitabk  for  writing  are 
directories  that  involve  transferring  fiks  over  a  slow  network  I 
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makejemp  proctype  (string  string  string1  returns  (file name)  signals  (bad  Jormat' 

Thu  ojxration  creates  a  file  name  appropriate  for  a  temporary  file.  using  the  given 
preferred  directory  name  (arg/).  program  name  <arg2>.  and  file  identifier  (argJ )  To 
lx  met  ill.  both  the  program  name  and  the  file  identifier  should  be  ihort  and 
alphabetic  The  returned  file  name,  when  used  at  an  argument  to  itttamtof»n  or 
iifrrirrnjopen  to  open  a  new  file  for  writing,  it  guaranteed  to  create  a  new  file,  and 
will  nor  overwrite  an  earning  file  further  file  name  referencet  to  the  created  file 
thocild  be  made  uung  the  name  returned  by  the  stream  or  tstream  get  namt 
operation 

equal  proctype  <(  ilc-  name  file  name)  returns  (bool) 

Returns  true  if  and  only  if  the  two  file  names  will  un^arir  to  equal  strings. 


similar 


proctype  (fit*-  name  f ite  name'  returns  <boof 
The  tame  at  the  equal  operation 


copy 


proctype  (f lie  name*  returns  (file  name* 

Copy  timply  returns  its  argument 


III. 3.  A  Pile  Type? 


Although  files  are  the  basic  information  containing  objects  tn  this  package,  we  do  nor 
recommend  that  a  file  tyjx  be  introduced  The  reason  for  this  recommendation  is  that  few  systems 
provide  an  adequate  representation  for  files 

On  many  systems,  the  most  reliable  representation  of  a  file  (accessible  to  the  user)  is  a  channel 
(stream'  to  that  file  However,  this  representation  is  inappropriate  for  a  C.LU  file  type,  since 
possession  of  a  r hannel  to  a  file  often  implies  lock ing  that  f lie 

Another  possible  representation  is  a  file  name  However,  f lie  names  are  one  level  indirect  f rom 
files  via  the  file  directory  As  a  result  the  relationship  of  a  file  name  to  a  file  object  is 
time  varying  Using  file  name-  as  a  representation  for  files  would  imply  that  all  file  operations 
could  signal  nen  rxttf 'nf_/t/r 

Therefore  opera  ions  related  to  file  objects  are  performed  by  two  stream  dusters,  itrram  and 
ntrram  and  operations  related  to  the  directory  system  ate  performed  by  procedures 

More  that  two  o;  :-ns  for  read  with  the  same  file  name  might  return  streams  to  two  different 
files  We  cannot  guarantee  anything  about  what  may  happen  to  a  file  after  a  program  obtains  a 
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III. 4.  Streams 

Slreanss  provide  [hr  means  to  trad  and  write  Iril  files.  and  to  perform  some  other  operations 
on  tile  oh  jet  t  s  The  operations  allowed  on  any  partuular  stream  depend  upon  the  access  mode  In 
addition,  certain  operations  may  he  null  in  u>mr  implementation'. 

When  an  operation  cannot  he  performed  because  of  an  incorrect  access  mode,  because  of 
implementation  limitations,  or  l*ec  a  use  of  properties  of  an  individual  file  or  device,  then  the 
of  ter  at  ion  will  signal  *t f’jjrNr  (unless  the  description  of  the  operation  explicitly  s.iyt  that  the 
invocation  will  be  ignored! 

The  PST  and  ssf  indicators  used  in  the  previous  apftendu  will  not  be  used  here,  in  many 
cases  the  exact  form  'and  note'  of  change  depends  on  the  particular  operating  system 

often  proctype  Mile  name.  string1  returns  tstream!  signals  (not  possiblet string'! 

The  possible  access  moles  'a'g.''  are  “read*,  "write*,  and  'append*  If  arg2  is  not 
ctne  of  these  strings,  nev  possihle'*bad  access  mode*!  is  signalled  In  those  cases 
where  the  system  is  able  to  de'ect  that  the  spec  if  ied  pre  existing  file  is  not  a  text  file, 
not  possible1  ‘wrong  file  type*!  is  signalled 

If  the  mcvie  is  ‘read*,  then  the  named  file  must  exist  If  the  file  exists,  a  stream  Is 
returned  ujwm  which  input  operations  can  be  performed 

If  the  mode  is  ’write’  a  new  file  is  created  or  an  old  file  is  rewritten  A  stream  Is 
re'urned  upon  which  output  operations  can  be  performed 

If  the  mode  is  ’append*,  then  if  the  named  file  does  not  exist,  one  is  created.  A 
stream  is  returned  positioned  at  the  end  of  the  file,  upon  which  output  operations 
can  be  (>erfotmed  Append  mode  to  storage  files  should  guarantee  exclusive  access 
to  the  f  lie  if  possible 

primary  input  proctype  <>  returns  (stream' 

I  his  operation  returns  the  ’primary*  input  stream,  suitable  for  reading  This  is 
usually  a  stream  to  the  user's  terminal,  but  may  be  set  by  the  operating  system 

primary  output  proctype1'  returns 'stream' 

This  operation  returns  the  ’primary*  output  stream,  suitable  for  writing  This  is 
usually  a  slrram  to  the  user’s  terminal,  but  may  be  set  by  the  operating  system 

error  output  proctype  (' returns  (stream' 

This  operation  returns  the  "primary*  output  stream  for  error  messages,  suitable  for 
writing  This  is  usually  a  stream  to  (he  user's  terminal,  but  may  be  set  by  the 
operating  system 
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proctyp*  (tirrarn)  return*  (boot* 

Can  read  returns  tru*  if  input  operations  appear  possible  on  the  stream 
proctyp*  (stream*  return*  (boot* 

Can  write  returns  tru*  if  output  operations  appear  possible  on  the  stream 

proctyp*  (stream*  return*  (char*  signals  (end  of  J lie.  not  possible!  string** 

This  input  operation  removes  the  neat  character  from  the  stream  and  returns  It 

proctyp*  (stream*  return*  (char*  signals  lend  of  Jt le,  not  pot itbtef string) ) 

This  input  oj>eratton  is  like  £ftc.  except  that  the  character  is  not  removed  from  (he 
stream 

proctyp*  (stream*  returns  'boot'  signal*  (not  possible! »trlng>* 

Thu  input  operation  returns  tru*  if  and  only  if  there  are  no  more  characters  in  the 
stream  It  is  equivalent  to  a  call  of  pttkx.  where  tru*  is  returned  if  prekt  returns  a 
character  and  false  is  returned  if  peek <  signals  end.of  Jile  Thus  in  the  case  of 
terminals,  for  example,  this  ofserauon  may  watt  until  additional  characters  have  been 
typed  by  the  user 

proctyp*  (stream,  char*  signal*  <noc_poxxible< string*) 

7  his  output  operation  appendi  the  given  character  to  the  tlrnm  Writing  a  newline 
indicates  the  end  of  the  current  line 

proctyp*  (stream,  char*  signals  <not  possibles  string** 

This  output  operation  is  like  pule.  except  that  an  arbitrary  characier  may  be  wrirten 
and  the  character  is  not  interpreted  by  the  CLU  I/O  system  (For  example,  (he  ITS 
\C.P  program  expects  a  text  file  containing  certain  escape  sequences  An  escape 
sequence  consists  of  a  special  character  followed  by  a  fixed  number  of  arbitrary 
characters  Three  characters  could  be  the  same  as  an  end  of  line  mark,  but  (hey  are 
recogmred  as  data  by  their  context  On  a  record  oriented  system,  such  characters 
would  be  part  of  the  data  In  either  case,  writing  a  newline  in  image  mode  would 
not  be  interpreted  by  the  O  il  system  as  indicating  an  end -of -line  I 

proctyp*  tiirrtm'  returns  <char>  signals  (end  of  file,  not  possible!  string*) 

This  input  operation  is  provided  to  read  escape  sequences  in  text  files,  as  might  be 
written  using  pule  magr  Using  this  operation  inhibits  the  recognition  of 
end  of  line  marks  where  used 

proctyp*  (stream*  returns  <lnt*  signals  tend  of  file,  not  possible* string** 

This  input  operation  rrttirni  the  line  number  of  the  current  (being  or  about  to  be 
read*  line  If  the  system  maintains  explicit  line  numbers  in  Ihe  file,  said  line 
numbers  are  returned  Otherwise  lines  sre  implicitly  numbered,  starting  with  I 
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set  linrno  proctype  'stream  ml)  signals  'not  possible< string” 

If  I  hr  system  maintains  explicit  line  number!  in  the  file.  this  output  operation  let* 
the  line  number  of  the  next  'not  yet  started)  line  Otherwise.  It  It  ignored 

reset  proctype  <tfrejm>  signals  inot  ^xmible*  string** 

This  operation  teteft  the  stream  to  that  the  neat  input  or  output  operation  will  read 
or  write  the  first  character  in  the  file  The  line  number  it  retet  to  it*  initial  value 

fluth  proctype  'stream’ 

Any  buffered  output  it  written  to  the  file  if  possible  Otherwiie.  there  it  no  effect. 
This  operation  should  be  used  for  ttreams  that  record  the  progress  of  a  program  It 
can  be  used  to  mammije  the  amount  of  recorded  status  visible  to  the  user  or 
available  in  case  the  program  dies 

get  line  length  proctype  'stream’  returns  Ifnt1  signals  <no  limit) 

If  the  file  or  device  to  whirh  the  stream  is  attached  has  a  natural  masimum  line 
length  then  that  length  is  returned  Otherwise,  no, limit  it  signalled  T  he  line 
length  does  nor  include  newline  characters 

get  page  length  proctype  'stream*  returns  'InV  signals  ' no  limit) 

If  the  device  to  which  the  stream  is  attached  has  a  natural  maximum  page  length, 
(hen  that  length  is  returned  Otherwise,  no  limn  is  signalled  Storage  files  will 
generally  not  have  page  lengths 

get  date  proctype  'stream1  returns  'date*  signals  'not  possible' string” 

This  operation  returns  the  date  of  the  last  modification  of  the  corresponding  storage 
file 

iet_date  proctype 'stream,  date’  signals  'not .possibM string)) 

This  operation  sets  the  modification  date  of  the  corresponding  storage  file  (The 
morlif nation  date  is  set  automatically  when  a  file  is  opened  in  ‘write  or  append 
mode  ) 

get  name  proctype  'stream’  returns  'file  name’  signals  'nr*  jrotsible' string” 

This  operation  returns  the  name  of  the  corresponding  file  It  may  be  different  than 
the  name  used  to  open  the  file  in  that  defaults  have  been  resolved  and  link 
indirections  have  been  followed 

close  proctyp*  'stream* 

This  operation  terminates  I/O  and  removes  the  association  between  the  stream  and 
the  file  Further  use  of  operations  that  signal  not  .possible  will  signal  not  ^possible. 
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proctyp*  <wmm>  returns  <  boot' 

Thu  operation  tftuim  tru*  if  f  the  Mirim  it  cloved 

proctyp*  tvtmm)  return*  1  boot 

Thtv  oper ation  tetutnv  tru*  iff  thr  vtmro  iv  attached  to  »n  interactive  terminal  (tee 
he  tow' 

proctyp*  tumm'  return*  string'  *ign*l*  tend  of  fitr,  n«  povublrt  string" 

Thu  input  oyieraticm  mdv  ind  return!  * r He  remainder  of'  the  current  input  line  and 
readv  hut  doer  not  return  the  terminating  newline  <if  any)  Thiv  operation  ugnalt 
end  of  file  on  It  if  there  were  no  character!  and  end  of  file  wav  detected 

proctyp#  tumm  airing  signals  <  not  povuhlr<  atrlng" 

I  hw  output  operation  wntev  (hr  (harattrrs  of  thr  wring  onto  thr  vtream.  foltowed  by 
a  newline 

proctyp*  <vtmm  string'  returns  •  airing' 

signals  'rnd  of  file  not  povviblri  string" 

Thu  input  operation  readv  character!  until  a  terminating  charactet  tone  in  arg 2)  or 
end  of  file  IV  vren  The  character!  up  to  the  terminator  are  returned,  the  terminator 
(if  an*'  it  Ml  in  the  vtream  T  hn  operation  vignalv  end  of  file  only  if  there  were 
no  character!  and  end  of  file  wav  detected 

proctyp*  '  vtream  string'  signals 'not  povviMe*  string" 

Thu  output  operation  vimply  writev  the  character!  in  the  Wring  uung  puli 
Naturally  it  may  he  vomewhal  more  efficient  than  doing  a  verier  of  individual  pulc'l 

proctyp# 'vtream  string  Int  signal* 'negative  field  width,  not  .povublrt  string" 

Output  the  vfring  However  if  the  length  of  the  vtnng  iv  lew  than  the  field  width 
tar #>t  then  alvn  output  the  appropriate  number  of  ratra  terov  before  the  firvt  digit 
or  ‘‘in  the  vtnng  tor  at  the  end  if  no  vuch  character!* 

proctyp*  'vrmm  string  mt  signals 'negative  field  width,  not  povviblrf string’) 

Output  the  vtnng  However  if  (he  length  of  the  vtnng  u  lew  than  atgl.  then  alvo 
output  the  appropriate  number  of  eatra  vpacev  after  the  vtnng 

proctyp*  <vf  team  string  lot1  signals 'negative  field  width  not  povvibW*  string)) 

Output  the  vtnng  However  if  the  length  of  the  wring  u  leu  than  atgl.  then  alvo 
output  the  apprnpua'e  number  of  eatra  vpacev  before  the  Wring 

proctyp*  twream  Inf  signals 'negative  field  width,  not  povublrf string" 

Thu  operation  output!  atg2  vpacev 
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equal  proctype  'stream.  stream'  returns  'bool' 

Returns  true  if  and  only  if  both  arguments  are  (he  same  stream 

similar  proctype  'stream  stream*  returns  'boot* 

Returns  true  if  and  only  both  arguments  are  the  same  stream 

copy  proctype  'stream'  ret  urns  'stream) 

Returns  its  argument 

III. 5.  String  I/O 

It  is  occasionally  useful  to  be  able  lo  construct  a  stream  that,  rather  than  being  connected  to  a 
file  instead  simply  collects  the  output  tect  into  a  string  Conversely,  it  is  occasionally  useful  to  be 
able  to  lake  a  string  and  convert  it  into  a  stream  so  that  it  can  be  given  lo  a  procedure  that  experts 
a  stream  T  he  following  stream  operations  allow  these  functions  to  be  performed 

create  input  proctype  string1  returns  'stream' 

An  input  stream  is  created  that  will  return  the  characters  in  the  given  string  If  the 
siting  is  non  empty  and  does  noc  end  with  a  newline  then  an  extra  terminating 
newline  will  be  appended  to  the  stream 

create  output  proctype1'  returns  fstrram' 

An  output  stream  is  created  'hat  will  collect  output  text  in  an  internal  buffer  The 
text  may  be  extracted  using  the  (ft  _(C’ttrnti  operation 

S*  contents  proctype  1  stream'  returns  string  signals  <nc*  possible1  string" 

This  operation  returns  the  text  that  has  so  far  been  output  lo  the  stream  It  will 
signal  nor  possible  if  the  stream  was  nor  created  by  emit  rut  put 

A  stream  to  a  string  does  no r  have  a  file  name  a  creation  date  a  maximum  line  or  page 

length,  or  explicit  line  numbers 

III.0.  Ixtreams 

Isireams  provide  the  means  to  read  and  write  Image  filet  and  lo  perform  some  ocher 
operations  on  file  obferts  The  operations  allowed  on  any  particular  I  stream  depend  upon  the 
access  mode  In  addirion  certain  operations  may  be  null  in  some  implementations 
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When  an  operation  cannot  be  performed.  because  of  an  incorrect  access  mode,  because  of 
implementation  limitations.  or  because  of  properties  of  an  Individual  file  or  device,  then  the 
operation  will  signal  n«  peiirWr  (unless  the  description  of  the  operation  explicitly  says  that  the 
invocation  will  be  ignored) 

Actual  reading  and  writing  of  objrcts  is  performed  by  rrucxft  and  dtiotft  operations  of  the 
types  involved  All  of  the  built  in  CLU  types  and  the  file  name  and  date  types,  provide  these 

operations  Designers  of  abstract  types  ate  encouraged  to  provide  them  also  The  type 

specifications  of  the  rmcvfr  and  ■  fncvfr  operations  for  a  type  T  are 

encode  proctype  <T.  istream'  signals  (nor  possible  string') 

The  enccvfe  operations  are  output  operations  They  write  an  encoding  of  the  given 
object  onto  the  istream 

decode  proctype  'istream'  returns  <T'  signals  (end  of  file,  no!  possible! string" 

The  ifri iv/r  operations  are  input  operations  They  decode  the  information  written  by 
entride  ojserations  and  return  an  object  'similar*  to  the  one  encoded  If  the  sequence 

of  decode  operations  used  to  read  a  file  do  nor  match  the  sequence  of  encode 

operations  used  to  write  it  then  meaningless  objects  may  be  returned  The  system 
may  in  some  cases  be  able  to  detect  this  condition  in  which  case  the  decode  operation 
will  signal  not  possible! "bad  format*'  The  system  is  not  guaranteed  to  detect  all 
sue  h  errors 

The  istream  operations  are 

open  proctype  ‘f  lie  name  string1  returns  (istream'  signals  (not  ^possible!  string" 

T  he  possible  access  modes  (<jrj’>  are  ‘read*,  'write*,  and  ‘append*  If  ctg2  is  not 
one  of  these  strings  not  possible! *bad  access  mode*)  is  signalled  In  those  cases 
where  the  system  is  able  ro  detect  that  the  specified  pre  existing  file  is  not  an  image 
file  not  possible' ‘wrong  file  tvjse*)  is  signalled 

If  the  mode  is  ‘read*,  then  the  named  file  must  exist  If  the  file  exists,  an  image 
stream  is  returned  uy*rm  which  rfn.vfr  operations  can  he  performed 

If  the  mode  is  ‘write*,  a  new  file  is  created  or  an  old  file  is  rewritten  An  image 
stream  is  returned  iifron  which  rtincfr  operations  can  he  performed 

If  the  mode  is  *apj*end‘,  then  if  the  named  file  does  nol  exist,  one  Is  created  An 
image  stream  is  returned  positioned  at  the  end  of  the  file,  upon  which  encm rfe 
operations  can  he  performed  Append  mode  to  storage  files  should  guarantee 
exclusive  arress  to  the  file  if  possible 

can  read  proctype  'istream'  return*  bool 

(in  read  returns  true  if  tin  exit  operations  appear  possible  on  the  istream 
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proctype  (istream*  returns  'bool' 

C  an  write  returns  true  if  rmcvfr  operations  appear  possible  on  the  istream 
proctype  'istream*  returns  <bool’ 

Returns  true  if  and  only  if  there  are  no  more  objects  in  the  f  lie 
proctype  (ittream)  signals  <no(  possible!  string)) 

fhu  operation  retell  the  ittream  to  that  the  nest  input  or  output  operation  will  read 
or  write  the  firtt  item  in  the  file 

proctype  (ittream) 

^ny  buffered  out  (Hit  it  written  to  the  I  ile  if  pottible  Otherwise,  there  it  no  ef  f  ect. 
proctype  'istream*  returns  <date*  signals  'not  possible! string)) 

This  operation  returnt  the  date  of  the  La vt  modification  of  the  corresponding  storage 
file 

proctype  ittream  date'  signals  (not  possible*  string" 

1  hit  operation  sr's  the  modification  date  of  the  corresponding  storage  file  (The 
m«»!if  ic  anon  date  n  ter  automatically  when  a  file  is  opened  in  ’write’  or  'append* 

mode  1 

proctype  (ifeim'  returns 'file  name1 

Thu  oper  at  inn  re'u'nt  'he  name  of  the  corresponding  f  ile  It  may  be  dif  f  erent  than 
the  name  used  to  open  the  file  m  that  defaults  have  been  resolved  and  link 
indirections  have  been  followed 

proctype  'iit'earn' 

1  hn  ope- a 'ion  'r-mina'et  I/O  and  removes  the  association  between  the  istream  and 
the  file  Further  use  of  operations  that  signal  not  possible  will  signal  not_posslble 

proctype  istream1  returns  booh 
7  his  operation  returns  true  iff  the  istream  is  closed 

proctype  'istream,  istream'  returns  ‘bool' 

Re'cirns  true  if  and  onl»  both  argumenti  are  ’h r  same  istream 

proctype  'istream  istream'  returns  'boot' 

Re*urns  true  if  and  onti  hc*h  arguments  are  the  same  istream 

proctype  'istream'  returns  iistream' 

Returm  its  srgument 
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III.7.  Terminal  1/0 

Terminal  I/O  is  performed  via  streams  attached  to  interactive  terminals  Such  a  stream  is 
normally  obtained  as  an  argument  to  the  top  level  procedure  of  a  program  A  terminal  stream  is 
capable  ol  jwrforming  both  input  and  output  operations  A  number  of  additional  operations  are 
possible  on  terminal  streams  and  a  number  of  standard  operations  have  special  interpretations 

Terminal  input  will  normally  be  buffered  so  (hat  the  user  may  perform  editing  functions,  such 
as  deleting  the  last  character  on  the  current  line,  deleting  the  current  line,  redisplaying  the  current 
line  and  redisplaying  the  current  line  aftei  clearing  the  screen  Specific  characters  for  causing 
tf  »se  functions  are  not  suggested  In  addition,  some  means  must  be  provided  for  the  user  to 
indicate  end  of  file  so  that  a  terminal  stream  can  be  given  to  a  program  that  expects  an  arbitrary 
stream  and  reads  it  until  end  of  file  The  end  of  I  lie  status  of  a  stream  is  cleared  by  the  rejef 
operation 

Input  buffering  is  normally  provided  on  a  line  basis  When  a  program  first  asks  for  input 
•  using  gefc.  for  ec  ample'  an  entire  line  of  input  is  read  from  the  terminal  and  stored  in  an  internal 
buffer  Further  input  is  not  taken  from  rhe  terminal  until  the  existing  buffered  input  is  read 

However  new  input  <  a  use-1  to  be  read  hv  the  grtkuf  operation  will  be  bsdfered  as  a  ssnst 
Thus,  one  i  an  read  in  a  lar>  e  amount  of  text  and  allow  ‘editing’  of  the  entire  amount  of  text  In 
addition  when  ihe  internal  buffer  is  empty  the  (rl,  maft  operation  will  read  a  character  directly 
from  rhe  terminal  without  interpreting  it  or  echoing  it 

The  user  may  specify  a  prompt  string  to  he  printed  whenever  a  new  buffer  of  input  IS 
requested  from  the  terminal,  the  prompt  string  will  also  he  reprinted  when  redisplay  of  the  current 
line  is  requested  hy  the  use-  However  if  the  time  that  new  input  is  leqursted  an  unfinished 
line  has  fwwn  output  'o  the  te'i  unal  then  that  unfinished  line  is  used  instead  as  a  prompt 

f  he  routine  fu/i  i»iij  (e  an  be  used  10  cause  control  functions,  eg  "VOfTT  (belli  and  "\p’ 
<new  page  or  clear  screen1  We  cannot  guarantee  the  effect  caused  by  any  particular  control 
character  but  we  recommend  that  the  standard  ASCII  interpretation  of  control  characters  he 
supported  wherevr'  possible 

Terminal  output  may  be  buffered  by  the  system  up  to  one  line  at  a  time  However,  the  buffer 
rrvtist  he  flushed  when  new  input  is  requested  from  the  terminal 
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Terminal  Hr  rami  do  not  have  modification  dates  Terminal  streams  should  have  lile  names 
and  implicit  line  numbers 
Additional  operations 


gethuf  proctype  (stream,  string'  returns  t String* 

signals  tend. of _file,  not  possibM  string" 

This  operation  is  the  same  as  gtli,  except  that  for  terminals  with  input  buffering, 
the  entire  input  read  by  £'tbu/  is  buffered  as  a  unit,  allowing  input  editing  of  the 
entire  text 


get  prompt  proctypa  tstream'  returns  <  string* 

This  operation  return'  'he  current  prompt  string  The  prompt  string  is  initially 
empty  (“I  I  he  empty  string  is  returned  for  non  terminal  streams 

set  prompt  proctype 'stream  string' 

This  operation  sets  the  string  to  be  used  for  prompting  If  not  possible,  there  Is  no 
effect 


get  input  boftered  proc  type  '  stream'  re  turns  '  bool 

This  operation  returns  true  iff  the  stream  is  attaihed  to  a  terminal  and  input  Is 
being  buffered 

ser  input  buffered  proctype  I'lnm  bool  signals 'not  possible*  string" 

T  his  operation  sets  the  input  buffeting  mode 

gel  output  buffeted  proc type  1  stream'  returns  ' booh 

This  operation  returns  true  iff  the  sfream  is  aitacbed  fo  a  terminal  and  output  Is 
being  buffered 

ser  output  buffered  proctype  s'rrjm  bool'  signals 'not  possible*  string" 

This  operation  se*s  the  output  buffering  mode  Unbuffered  output  is  useful  for 
programs  tha'  output  imomplete  lines  as  they  are  working  to  allow  the  user  to  watch 
the  progress  of  the  program 

III  -R.  Ml  srellaneous  Procedures 


working  dir  proctype  returns  '  string1 

This  proterlure  returns  the  current  working  directory  A  null  directory  in  a  file 
name  denotes  the  current  working  directory 
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dir  proctype  *  string*  signals  <bad. format  rurt  possible!  string** 

I  hn  procedure  is  used  to  change  the  working  dltrctoty 

proctype  Mile  mmri  signals  < no*  possible*  string'i 

I  hn  procedure  drlrfrs  thr  specified  storage  file  An  exception  may  t>e  signalled 
rvm  if  thr  spec  if  ird  f  ilr  dors  not  rust,  hut  an  exception  will  not  hr  signalled  solely 
because  thr  f  ilr  dors  not  rxist  For  rxamplr.  an  exception  may  be  signalled  if  thr 
s|*ec  if  ini  directory  dors  not  exist  or  if  thr  user  dors  not  have  atcris  to  the  direstory 

proctype  'file  name  I  ilr  name*  signals  <not  |K»ssitilrt  string** 

This  procedure  renames  thr  file  specified  by  argl  to  have  thr  namr  specified  by 
at (2  Renaming  across  directories  and  drvicrs  may  or  may  not  t»e  allowed 

proctype*'  returns  string 

this  proc  rrliirr  returns  some  identification  of  thr  user  who  is  associated  with  thr 
executing  protest 

proctype  <>  returns  tdate1 

I  his  procedure  returns  the  current  date  and  time 

proctype  real  Int  Int  returns  string1  signals  *  illegal  f  irkl  width* 

F  form  returns  a  real  literal  o'  the  form 

[  }  f  f,t!A]r,x  fit!  A 

where  i  f-.r'.A  is  di|  its  f  fir!A  is  eg  »  digits  and  x  fitlA  is  Fsp  width  digits 

see  Append  i  x  II  Se>  ■  ion  y  If  c^*  -  0.  Ihrn  the  decimal  point  and  f  ftrlA  are  not 
present  If  argl  •  fin  (hen  the  leftmost  digit  of  i  fitIH  is  not  mo  If  argl  -  00. 
then  fiflA  is  all  jetos  Illegal  field  width  occurs  if  atg2  *  0  or  atgl  <  0  Of 
at  g2  •  <t’g  }  «  1  If  necesury  a’gl  nay  f>e  rounded  to  fit  the  specified  form 

proctype  real  Int  Int  returns  string1  signals  < illegal  / irld  width. 

insufficient  field  wsdthl 

F  form  returns  a  real  literal  of  the  form 

[  }  ftrlA  /  fttIA 

where  f  (tt’A  is  atgt  digits  If  at g 2  >0.  then  i  fit!A  is  at  least  one  digit,  with 
Ire  1m>  re-os  suppressed  If  o’f2  -  0.  then  i  fulA  is  not  present  Illegal,  f ield_width 
occurs  if  at g2  •  0  or  a<  g  *  •  0  or  atg2  •  atg  t  .  I  If  necessary.  at g!  may  he  rounded 
to  fit  the  specifier!  form  Insufficient  field  width  occurs  If 
reattexponent'a’jff*  *  a< g2  after  any  rounding 


till#  Miscellaneous  Procedures 

g  form  proctype 'real  Ini  Int1  returns  '  string'  signals  (illegal  f  irtd  width, 

insufficient  firkl  width' 

It  or  -  ('  0  of  |  .  rralSrx|tonrn!<t]r;/'  <  arjj*.  thm  the  result  returned  by  this 
routine  is  (  (otm'a'gf.  aig <ir|?)  Otherwise,  the  result  IS 
r  form  ‘J'gl  1  <i'g2»a’gf  I  tp  width  d>  Illegal  I  Kid  width  occurs  if  a>g?  •  0  or 
J’S' »  •  0  or  ii’g'  •  •  I  If  necessary  a’gl  may  be  rounded  to  fit  the  specified 

form  Insufficient  field  width  occurs  if  atgl  a  00  snd 

-<  I  ■  reaftecponrnt'tf'g/'  *  cog.1'  and  (<rrg?  •  at  g  >  «  F*p  width  «  S>  after  any 
rounding 

III.B.  Dates 

I'ates  are  immutable  objrc’s  that  represent  calendar  dates  and  tiroes  The  operations  for  dates 

are 

create  proctype  tint,  int  Int.  tnt  Int.  mb  returns  'date'  signals  <bad  formal) 

I  he  arguments  arr  <  in  older1  day.  month,  year,  hours  minutes  and  seconds 

get  all  proctype  'da'r  returns  'Int  Int  Int  Int.  int  Int* 

ke'urns  'hr  c ncnponrnfc  in  'he  came  order  as  given  to  create 

get  day  proctype  '  ta’e1  returns  int 

ge*  month  proc type  ‘ da'r  returns  int 

get  yea’  proc  type  '  da'r  returns  Int 

ge(  hour  proctype  'da'r  returns  int 

get  minute  proctype  "la'r  returns  ml 

get  second  proctype  'da'r  returns  lnt 

'I  M>  'I  I2>  <1  ».  (0  ?ti.  to  Vit.  (0  *>9'.  respectively 

unparse  proc  type  '  d  a'r  returns  string 

eg  *|?  January  in's  n|  Y>  Ml* 

unparse  dale  proctype  ’da'r'  returns  string 
eg  *1?  January  |n'S* 

tinparse  time  proc  type  '  date'  returns  string' 

eg  *P|  th  V>* 

equal  proctype  <date  date'  returns  ‘bool’ 

The  obvious  equal 


similar 


proctype  'date.  date*  return*  'boot' 

Returns  datetrtjual  (a’gl  arjj* 


copy  proctype  'date*  returns  'date* 

Returns  a'gl 

I*  proctype  tditr.  date1  returns  'boot' 

lr  proctype  'date  date*  returns  'bool' 

proctype  'date  date*  returns  'bool1 
proctype 'date,  date*  returns  ' bool' 

T  hr  ob v khj \  relational  operations.  if  Haiti  •  Haiti.  then  Haiti  occurs  earlier  lhan 
Haiti 
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IV. 1.  Priority  Queue  Cluster 

1  his  cluster  iv  in  implementation  ol  f>r lor tt y  queues  It  inserts  elements  irt  CXk»g->  «>  lime,  and 
removes  the  “best"  element  in  Of  log-,  n>  time  where  n  iv  the  number  of  items  in  the  queue,  and 
best  is  determined  by  a  total  ordering  predicate  that  the  queue  is  created  with 

The  queue  is  conceptually  implemented  av  a  binary  tree,  balanced  such  that  every  element  IS 
better  than  its  descendants,  and  such  that  the  minimum  depth  of  the  tree  differs  from  the 
maximum  depth  by  at  most  one  The  tree  u  actually  represented  by  keeping  the  elements  in  an 
array  with  the  left  sou  of  util  in  din?),  and  the  right  son  in  alt<?«ll  The  root  of  the  tree,  all],  IS 
the  “best"  element 

Frch  insertion  or  deletion  must  rebalance  the  tier  Since  the  tree  is  of  depth  strictly  less  than 
logn  n.  the  number  of  comparisons  is  less  than  log-,  n  for  insertion  and  less  than  2  log-,  n  for 
removal  of  an  element  (  onsequently  a  sort  using  this  technique  takes  less  than  S  n  log-,  n 
comparisons 

T  his  cluster  illustrates  the  use  of  a  type  parameter,  and  the  use  of  a  procedure  as  an  object 
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p.quwjf  -  cluster  (i  type!  Is  create.  best,  sue,  empty,  insert,  remove 

pt  -  proctype  <f.  t>  returns  'bool' 
st  -  arrayli) 

rep  -  struct  i  st.  p  pt)  t  1  «  I  « •  sire<a*  implies  ■vp(sti).  all/?)) 

t  (.reste  s  p  queue  with  s  psrtKulsr  sorting  predicate  P  should  be  a  transitive,  non  reflexive, 
t  total  older  P'x.  y>  means  that  x  is  l>ettrt  than  y  Each  element  in  the  p.queue  should  better 
t  than  its  sons  However,  this  may  not  be  true  if  mutable  elements  are  (hanged  while  in  the 
%  p  queue 

create  -  proc  <p  pt>  returns  (cvt> 

return  repCa  aUnewti.  p  pi)  t  Low  index  of  array  must  be  I  ’ 

and  create 

X  Return  the  best  element 

best  -  proc  <x  cvt'  returns  It)  signals  lempty) 
return  atlhottomtx  a>> 

except  when  bounds  signal  empty  end 
end  best 

X  Return  the  number  of  elements 

me  -  proc  lx  cvt>  returns  <lnt’ 
returnatisire<x  a» 
end  sue 

1  Return  true  if  there  are  rto  elements 


empty  -  proc  <x  cvt>  returns  tboob 
return<at|empty<x  a)) 
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X  Invert  an  element  of  type  t 

invert  -  proc  <x  cvt  v  t> 
i  a 1  -  x  a 

P  1"  *  *  P 

4 r S .i dil h'  a  v) 

von  Ini  -  aithif>h<a> 

(1 4(1  Int  -  von/2 

while  il4il  >0  c  and  p‘v  atdad)*  do 
xl  vonl  -  atdad) 
von.  (1 4r1  *  did.  dad/? 

end 

4( von)  -  v 
end  invert 

X  Remove  the  bevt  element  and  return  it 


X  Make  room  for  new  item 
X  Tentative  index  of  v 
t  Get  index  of  v'v  father 
X  While  v  better  than  fither 
X  Move  f 4ther  down 
1  Get  new  von,  father  indexev 

X  Invert  the  element  into  place 


remove 


proc  <  x  cvt1  return!  <t>  aignala  'empty! 

4  4 1  -  X  4 

P  Pt  *  *  P 

r  t  -  atSbottomtal 

except  when  boondv  tignal  empty  end 
v  t  -  atjremh'  a1 
max  von  Int  -  allurea* 

If  max  von  -  0  then  returrVr'  end 
max  dad  Int  •  max  von/2 
dad  Int  -  I 

while  dad  <  -  max  dad  do 
von  Int  -  didt? 
vval  t  -  at  von) 

If  von  •  max  von 

then  nival  t  -  atvon  •  I) 

If  ptnvval.  wall  then  vnn.  vval  - 

end 

If  ~p< vval.  v>  then  break  end 
atdad)  *  vval 
dad  -  von 

end 

atdad)  -  v 
return^  r> 
end  remove 


%  Save  bevt  for  later  return 

X  Shrink  array,  vave  element 
X  Lavt  von  node 
X  If  now  empty,  we're  done 
1  1  avt  node  with  a  von 
I  Tentative  index  of  v 
X  While  node  hav  a  von 
X  Get  the  f  irvt  von 

X  If  there  iv  a  vecond  ion 
X  Find  the  bevt  von 
von  ♦  I.  nival  end 

X  If  von  doevn't  beat  v.  we're  done 
X  Move  von  up 
X  Move  v  down 

X  Invert  the  element  into  place 
X  Return  the  prevtouv  bevt  element 


end  p  queue 
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IV. 2.  Text  Formatter 

The  following  program  is  a  simple  text  formatter  The  input  consists  of  a  sequence  of 
unformatted  text  lines  mixed  with  command  lines  Fath  line  (except  possibly  the  last)  is  terminated 
by  a  newline  character,  and  command  lines  begin  with  a  period  to  distinguish  them  from  text  lines 
For  example 

Justification  only  occurs  in  'fill*  aode. 

In  "not  ill’  wode.  each  input  te»t  line  is  output  uithout  Rod i f i cat i on. 

The  . br  tnaa.tnd  causes  a  line  hce.sk. 

.  br 

.Kjs  t  like  this. 

The  program  produces  justified,  indented,  and  paginated  text  For  example 

.his  t  i  t i c at i on  only  occurs  in  "fill"  aode.  In  "nofill"  aode, 
each  input  1e«f  line  is  output  without  aod  i  f  i  ca  t  i  on.  The  .  br 
c naaand  causes  a  line  break. 

Just  like  this. 

The  output  text  is  indented  |n  spa  rs  from  the  left  margin,  and  Is  divided  into  pages  of  V  text 
lines  each  Fach  output  line  has  fWT  characters  A  header  of  5  lines,  including  a  line  giving  the 
page  numfer.  is  output  at  the  beginning  of  each  page 

An  input  text  line  cnnsisii  of  a  sequence  of  words  and  word  break  characters  The 
word  break  characters  are  space,  tab.  and  newline,  all  other  characters  are  constituents  of  words 
Tab  stops  are  considered  to  be  every  eight  spaces 

Tabs  and  spaces  are  accumulated  in  the  current  output  line  along  with  the  Input  words  Thus, 
if  two  spaces  orcur  in  the  input  between  two  words  and  those  words  appear  on  the  same  output 
line.  then  they  will  be  separated  by  at  least  two  spaces 

The  formatter  has  two  basic  modes  of  opera  iron  In  "nofiH"  mode,  each  Input  text  line  Is 
output  without  modif Katmn  In  "fill*  mode,  input  is  accepted  until  no  more  words  can  fit  on  the 
current  output  line  Newline  characters  are  treated  essentially  as  spaces  The  line  Is  then  ^istlfied 
by  adding  extra  spares  between  swords  until  the  last  word  has  its  last  character  in  the  rightmost 
position  of  the  line  Initially  the  formatter  is  in  fill  mode 

Justification  is  performed  by  enlarging  spaces  between  words,  as  evenly  as  possible  Enlarging 
Is  performed  alternately  from  the  right  and  the  left,  starting  from  the  right  at  the  top  of  each  page 
Only  spares  to  the  right  of  alt  tabs  and  between  words  are  subjrct  to  justification  Furthermore, 
spaces  preceding  the  first  sword  following  a  tab  are  nof  subject  to  justification  If  there  are  no 
spaces  subject  to  justif Ration,  then  no  justification  is  performed  and  no  error  message  It  produced 
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In  till  mode.  any  input  line  that  slam  with  a  word  break,  character  causes  a  line-break  the 
current  output  line  is  neither  filled  nor  adjusted,  but  is  output  as  is  An  "empty*  input  line  (one 
starting  with  a  newline  character)  causes  a  line  bleak  and  then  causes  a  blank  line  to  be  output. 

In  nofill  mode,  if  an  input  line  is  longer  than  the  line  length.  It  is  output  as  given  with  no 
error  message  In  fill  mcxle  if  a  word  is  longer  than  the  line  length,  it  is  output  as  given  on  a  line 
by  itself  with  no  error  message 

The  formatter  accepts  three  different  commands 
hr  causes  a  line  break 

nf  causes  a  line  break,  and  changes  the  mode  to  "nofill" 

ft  causes  a  line  break  and  changes  the  mode  to  "fill" 

An  unrecognired  command  name  causes  an  error  message  and  is  otherwise  ignored 

I  he  program  performs  input  and  output  on  streams 
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1  Kead  the  into  ram  processing  II  and  placing  thr  output  on  outvlream  and  writing  error  messages 
\  on  errstrram 

format  •  proc  ‘murrain  outstteam.  errsitram  sttram  signals  <bad  *rg‘»trlng)t 
It  ^atrnmfi  «n  read1  instreain1  then  signal  bad  arg<  input  stream  ' 

elseif  -orraml  an  writr-outsrrram'  then  signal  bad  argl'output  stream") 
elseif  -urramlcan  writ^frrvlrrami  then  signal  bad  argtVrror  stream") 
end 

d  doc  -  dot  |(reate*outstream> 

line  Int  -  0 

while  ~slieanrtrrnpi»‘inurrami  do 
line  -  line  •  I 
do  line*  instre  am,  d' 

except  when  error  'why  string1 

ilreamlputKerruream  Inttunparseiline'  It  \t‘  ■«  why) 

end 

end 

dotlterminateid) 
end  format 

\  Process  an  input  line  1  he  line  it  protected  either  at  a  test  line  or  as  a  command  line, 
%  depending  upon  whether  or  not  the  first  character  of  the  line  it  a  period 

do  line  .  proc  imitream  stream,  d  dot)  slgnala  terror* atrtng" 
t  char  -  srrejrr>if>eek(i»nslrram> 

If  c  -  ' 1 

then  do  tnmmandtintlream.  d' 

reslgnal  error 

else  do  text. line* inuream.  d> 

end 
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t  Protect  a  tnmmjiK)  line  Thit  procedure  readt  up  (o  the  f ir U  apace  o»  tab  tn  a  line  and 
*  procrttet  t hr  \trir»j>  re id  at  a  command  I  h r  remainder  of  the  line  it  read  and  dittarded 

do  command  •  proc  'inttrram  ttrram  d  dca  1  signals  'error*  string1' 

MreamJ^eftt  inttrram'  \  tk  ip  the  j>er  k*1 
n  string  -  ttrramt ^Ht' inttrram  *  VtVn** 
ncrpl  when  mil  of  file  n  -  ~  end 
ttrram$vrcfiinttrram>  \  craii  and  divcard  remainder  of  input  line 
eacept  whrn  mil  ot  tile  end 
If  n  •  *bt "  then  doc  Ibrrak  line- ii • 
elseif  n  -  *t  i*  then  dor  ttrf  ( •  lb d • 
elteif  n  -  *nf*  then  doc  Iter  not  lit1  di 
elseif  n  -  **  then  signal  rrror' 'mitting  command*' 
else  signal  error'  Ini*  noi  a  command** 
end 

end  do  command 

1  Protect  a  text  line  Thu  prcaedurr  rra  It  one  line  ( rctm  inttteam  and  protettet  it  at  a  teat  line 
1  If  the  first  character  it  a  word  f  reak  character  rhen  a  line  break  it  caused  If  the  line  It  empty. 
1  then  a  blank  line  it  cHirput  O'herwite  the  word!  and  word  break  character!  in  the  line  are 
t  protected  in  turn 

do  teat  line  -  proc  'inttrram  ttream  d  doc' 
c  char  -  itrramleetdinctrram' 

If  c  -  An 

thendoctckip  linr<d'  X  empty  input  line 

return 

elseif  c  -  ’  ’  cor  c  -  At’ 
then  doctbreak  lme<d' 

end 

white  c  An'  do 

If  c  •  then  dnctadd  cpacetd* 

elseif  c  *  At'  then  dnctadd  tah<d' 
else  w  word  -  wordltcanU  invtream) 
dortadd  wordid.  w) 

end 

c  *  ttreamlj-ric'inttream' 

end  eicept  when  end  of  fikr  end 
doctadd  newlirtetd* 
end  do  test  line 
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\  1  hr  it(»  i  Ulster  implements  documents  the  proper  l>  indented.  justified.  and  paginated  output  of 

X  the  rest  tor  matter  ^  document  is  constructed  incrementally.  using  operations  to  add  words, 
X  spates  'atn  and  newlines  to  the  end  ot  the  document  Other  operations  are  used  for  the  basic 
X  formatting  actions  break  line  to  cause  a  line  break,  skip  line  to  output  a  blank  line  set  fill  and 
X  set  no*  ill  to  set  the  formatting  mode  Rather  than  collecting  the  entire  document  as  a  sequence 
X  of  lines  before  outputting  to  a  tile  each  line  is  output  as  it  is  produced  T  he  current  output  line 
X  is  maintained  for  the  purposes  of  j>erlorming  justification  To  perform  pagination  and  the 
X  production  ot  headings,  the  current  line  number  and  the  current  page  number  are  also 
X  maintained 


d<*  *  cluster  Is  crei'e  a  11  word  add  spa  r  add  tab  add  newline, 
tireak  line  skip  line  set  till  set  not  ill  terminate 


line 

line 

X 

1  he  current  line 

fill 

bool 

X 

1  rue  •  ••>  in  (ill  mode 

r:t 

bool 

X 

I  rue  •  ■  jusrify  nest  line  right  to  left 

lineno 

int 

X 

I  he  number  of  lines  output  so  far  on  this  page 

X 

'nor  including  any  header  lines) 

pageno 

lot 

X 

I  he  number  of  the  current  output  page 

outslream 

stream] 

X 

1  be  output  stream 

chars  jwr  line  .  f/t 
lines  j«er  page  -  V' 
let '  margin  sire  •  10 


X  (  r r a'e  a  dot  ot  f  f  he  >  irst  pa*-e  is  numf»er  1  there  are  no  lines  yet  output  on  it  Fill  mode  II 
X  in  ef  ?  ec  t 


crea'e  -  proc  'outslream  stream1  returns  cwt 


returrerept  line 
fill 

r?l 

lineno 


linetcreale* 1 

true 

true 

0. 

I 


outslream  outstreamlt 


•nd  create 
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1  Prcxrss  a  word  This  procedure  adds  the  word  W  io  the  output  document.  If  in  nofill  mode, 
1  then  l hr  word  is  simply  added  to  the  rnd  of  the  current  line  Ithere  is  no  line  length  checking  in 
X  nofill  mode*  If  in  fill  mode,  then  we  first  check  to  see  if  there  is  room  for  the  word  on  the 

X  current  line  If  ihe  word  will  not  fit  on  the  current  line,  we  first  justify  and  output  the  line  and 

X  then  start  a  new  one.  justif  leaf  ion  is  performed  alternately  from  the  right  and  the  left  on 

*  successive  lines  However,  if  the  line  is  empty,  then  we  just  add  the  word  to  the  end  of  the  line, 

X  if  the  word  won't  fit  on  an  empty  line  then  it  won't  fit  on  any  line,  so  we  have  no  choice  but  to 
X  put  It  on  the  current  line  even  if  it  doesn't  fit 

add  word  -  proc  <d  evt  w  word* 

ltd  fill  cand  ~lme$empty<d  line* 

then  If  lineilengthtd  line*  ♦  wordlwidthtw*  >  chars  perjine 
then  I  met  justif  y<d  line,  chars  per  line,  d  r2l> 
d  r21  -  Ml  r?l 
output  line* d I 

end 

end 

linetadd  wrord<d  line.  w> 
end  add  word 

X  Process  a  space  just  add  it  to  the  current  line 

add  space  -  proc  <d  evt* 

linetadd  spacetd  line* 
end  add  space 

X  Process  a  tab  just  add  it  to  the  current  line 

add  tab  -  proc  <d  evt’ 

linetadd  taMd  line* 
end  add  tab 

X  Process  a  newline  If  in  nofill  mode,  then  the  current  line  is  output  at  It  Otherwise,  a  newline 
1  Is  treated  just  like  a  space 

add  newline  -  proc  <d  evt* 

If  Ml  fill 

then  output  line<d* 
else  linetadd  space<d  line* 

end 

end  add  newline 
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X  (  lusr  a  line  break  If  the  line  is  not  empty,  then  it  is  output  as  is  l  ine  breaks  have  no  effect 

X  on  empty  lines  multiple  line  bleaks  are  the  same  as  one 

break  line  -  proc  '(1  cvt1 

if  *linrtempiy(d  line1  then  output  line<d>  end 
end  break  line 

X  t  ause  a  line  break  and  output  a  blank  line 

sk  ip  line  .  proc  <d  cvt1 

break  line'up'd1) 

output  line<d'  X  line  is  empty 
end  sk  ip  line 

X  (  ause  a  line  hreik  and  enter  fill  mode 

set  I  ill  -  proc  <d  cvt1 

breik  line'up'd>> 
d  f  ill  -  true 
end  set  f  ill 

X  (  ause  a  line  break  and  enter  nofill  m<»1e 

set  not  ill  -  proc  'd  cvt 

break  line<up'd)> 
d  f  ill  -  f  *l»e 
end  set  not  ill 

X  7  erminate  the  output  document 

terminate  -  proc  'd  cvt' 

break  line  upd** 
end  terminate 
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X  lntrrn.il  routine 

1  Output  linr  is  mcd  to  keep  tra(k  of  thr  firir  numl>er  and  thr  page  number  and  to  put  out  thr 
X  header  it  thr  top  of  rath  page  At  thr  top  of  rich  page.  ^ntifiution  it  retet  to  Mart  from  the 
X  right 

output  linr  •  proc  <d  rep' 

If  d  linrno  -  0 

then  If  d  pageno  •  I 

then  vt  rrarnt  put  d  outvtream.  ’\p‘k  end 
vtrramtputv'd  out  Mr  earn.  *\n\n”>  X  print  header 
vtreamjputvpace<d  outttream.  left  margin  virrl 
MreamSputt'd  outvtream.  'Page  1 
vtreimjpwtv  1  outvtream.  Inti unparvr^d  pageno" 
vtrramXpu- v<d  outvtream.  "\n\n\n“> 

end 

d  linrno  *  d  linrno  »  I 
If  ~ line Jrmpt  y1  d  line 

then  vtreamjptitvpatr<d  outvtream  left  margin  sire* 
lineXoutput<d  line  d  outvtream’ 

end 

Mreamtpuic’d  our vtr earn  An’’ 

If  d  linrno  .  linn  {>er  page 
then  d  r2l  -  true 
d  linrno  -  0 
d  pageno  -  d  pageno  •  I 

end 

end  output  line 
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X  \  linr  iv  i  mutable  ve<jurnr  of  wordv.  vpacev.  and  (abv  The  length  of  *  line  IV  the  number  of 
X  character  povitiunv  that  would  f*e  uvr  1  if  the  Imr  were  output  One  may  output  a  line  onto  a 

X  vtrram.  in  which  cave  thr  line  iv  niadr  empty  after  punting  One  may  alio  fivttfy  a  line  to  a 

X  given  length  which  rryeanv  that  vome  vpacev  in  the  line  will  be  enlarged  to  make  the  length  of 

X  the  line  racial  to  the  denied  length  Only  vpacev  to  the  right  of  all  tabv  are  vubjext  to 

X  givtifi'  ation  1  urthermore  vpacrv  preceding  the  tirvt  word  in  the  output  line  or  preceding  the 
X  firvt  word  following  a  tab  are  not  vubjrrt  to  juvtifuation  If  there  are  no  vpacev  vubject  to 

X  juvtif ic ation  or  if  the  line  iv  too  long  then  no  juvtif ication  iv  performed  and  no  error  mevvage  It 

X  produced 

line  -  clutter  It  create  add  word  add  vpace  add  tab.  length,  empty,  juvtif  y.  output 

token  -  variant  vpace  int  X  thr  in!  iv  thr  width  of  the  vpace 

tab  int.  X  the  int  iv  the  width  of  the  tab 

weird  word) 
at  -  array*  tokenl 

rep  -  recorcf  length  Int  X  the  current  length  of  the  line 

Huff  at)  X  the  contentv  of  the  line 

X  no  two  adjacent  tokenv  will  both  be  vpacev 

max  tat>  width  -8  X  maximum  charv  per  tab 

X  Create  an  empty  line 

create  -  proc  <*  return*  evt’ 
returrerepf  length  0. 

vruff  atjnew<>)) 

and  create 

X  Add  a  word  at  the  end  of  the  line 

add  word  -  proc  I  evt  w  wool 

attaddh'l  vtuff.  tokentmake  word'wl* 

I  length  -  I  length  •  wordtwidth'  w> 
and  add  word 

X  8dd  a  vpace  at  the  end  of  the  line  combining  it  with  an  exiting  trailing  vpace.  If  any 

add  vpace  -  proc  I  evt1 

I  length  -  I  length  •  I 
tegcaae  alt  top*  I  viuf  f  > 

tag  epare 'width  Int  tokmt  hange  vpa  r* a*Vnp‘ I  vtuf f  >  width  •  l> 
return 

other* 

and  except  when  houndv  end  X  Handle  empty  array  cave 

»rtaddh*l  vtuff.  tokentmakr  vpace*  I" 
end  acid  vpace 
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X  Add  4  1 4 1»  4!  thr  end  of  the  line 
4dd  (4b  -  proc  <1  cvt> 

width  Inf  -  mu  till  width  <1  length  II  mi*  tib  width) 

I  length  -  I  length  •  width 
itliddhM  tluf  f .  tokrnlmikr  tib<  width" 

•  nd  idd  tib 

X  Return  thr  (iifirnt  length  of  (hr  line 

length  -  proc  <1  cvt»  return*  <lnt' 
return^  I  length' 

•  nd  length 

X  Return  (me  if  thr  line  n  of  Irngth  jrro 

empty  -  proc  I  evt’  return*  <bool 
return*  I  length  -  O' 

•  nd  empty 

X  Jmtify  i hr  Imr  if  |»ouihlr  wi  thit  it'y  length  it  equ 4 1  to  I  I  N  Before  justification  iny  trilling 
X  space  ii  r moved  If  thr  Imr  length  it  that  point  it  gtratrt  or  equil  to  thr  drtired  length,  thrn 
X  no  action  it  tikm  Otherwne  thr  u-t  of  justifiable  spaces  n  found,  as  described  ibove  If  there 
X  irr  no  jmtifnMe  r\  then  no  further  Ktion  u  tilrn  Othrrwive.  thr  justifiable  iguri  ire 
X  enlarged.  n  rvenly  n  jmiublr  to  riikr  thr  Imr  length  thr  dented  length  F.nlirging  it 
X  performed  either  from  thr  tight  or  thr  left  depending  on  R2L 

juitify  -  proc  'I  cvt.  len  Int  r?l  boof' 
tageme  4t$tof>‘l  stuff 

tag  ipice  '  width  Int'  ittrrmhfl  stuff  I 

I  length  -  I  length  width 

other* 

end  e*cept  when  tvwinds  end  X  Hindlr  empty  »rr*y  <*ie 
tf  I  length  •*  ten  then  return  end 
dlff  Int  -  len  I  length 
firit  Int  -  find  firu  justifiable  ipirrtl) 

•  ncept  when  none  return  end 
enbrge  spacesfl  firtt.  dlff.  r?l> 

•nd  justify 
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\  <  kutpiit  (hr  line  and  revet  it 

output  •  proc  I  cvt  nuittream  stream’ 

fori  token  in  atlrlementv’l  stuff'  do 

t»qr«tf  ’ 

tag  until1*  word'  wot dloutpuf  w,  outttream' 
tag  \f  <  4  r  tab  *  *  id  t  h  Int  vtreamtput  pate<ou(slream.  width) 
and 
and 

I  length  •  0 
atStrim'l  stuff  I.  0» 
and  output 

1  Internal  routine* 

\  Find  thr  tint  juttif  table  space  I  his  spare  it  thr  lint  space  liter  the  first  word  after  the  last 
\  !it>  in  the  line  Pr'urn  the  index  of  the  tpite  in  the  array  Sipnal  NONE  if  there  are  no 
\  juttit  i  »Mr  tpaie*  Although  no  two  adyacent  token t  will  hoth  be  word*  'at  linet  are  currently 
\  use>1>  no  tuih  assumption  it  made  here 

find  first  justifiable  cpiie  -  proc  'I  rep1  return*  'Int'  signal*  'none' 

a  at  -  I  ttuf  f 

If  a'Sempty'a1  then  signal  non r  end 
In  int  *  a'tkow  a1 
hi  int  -  a’thiph'a' 

I  Int  -  hi 

while  i  •  ko  cand  Mokrnln  tabafi)  do  \  find  la ti  tab  in  the  line  < if  iny> 
i  -  I  -  I 
and 

while  i  ••  hi  cand  Moienln  word'all))  do  \  find  firtt  word  after  it  (or  firtt  in  line) 
(•i*l 
and 

while  i  -  hi  cand  ^'nkenlii  tpaceiaiiJ)  do  t  find  first  space  after  that 
I  •  I  •  I 

and 

If  i  -  hi  then  signal  none  end 
return  i> 

end  find  firtt  justifiable  tpare 
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t  fnlarge  the  spaces  in  (hr  array  whose  indexes  are  at  (rail  FIRST  Add  a  total  of  DIFF  extra 
t  character  width*  of  space  Add  spaces  working  (torn  the  right  or  the  left.  depending  on  R2L 

mUrgr  spaces  .  proc  'I  rep  firvt.  diff  tnt  r?l  boof' 
nspaceslast  tnt  -count  space*!  I.  f iritt 
tf  nspace*  -  0  then  return  end 
by  tnt  •  I 
If  r?l 

then  by  -  I 

f  itst.  last  •  lavt.  f  list 

end 

nrath  int  -  diff  /  nspace*  X  Amount  to  increase  each  space 
nextra  int  *  diff  //  nspace*  1  Leftovers  to  be  distributed 
for  i  Int  In  Intffrom  to  bytfirst  last,  by  do 
tagcase  I  ttufflil 

tag  space  (width  Int'  width  .  width  •  neach 
If  nextra  »  0 

then  width  -  width  ♦  I 
nextra  •  nextra  -  I 

end 

tokenjchange  spaced  stuff! t),  width) 

others 

end 

end 

I  length  -  I  length  •  diff 
end  enlarge  spaces 

t  Return  a  count  of  the  number  of  spaces  in  the  line  whose  indexes  in  the  array  are  at  least  IDX, 
X  and  return  the  index  of  the  last  space  counted 

count  _  space*  -  proc  <1  rep  idx  Int'  returns  <lnt  Inf 
count  Int  -  0 

for  t  Int  In  Inttfrom  toddx  atihighd  stuff >1  do 
tagcase  I  stuff! i) 

tag  space  count  •  count  •  I 
idx  *  i 

others 

end 

end 

raturtV count,  id*' 
and  count  spaces 
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X  ^  word  it  an  item  of  test  |i  may  be  output  lo  a  stream  It  has  a  width,  which  Is  the  number  of 
X  character  positions  that  are  taken  up  when  thf  word  is  printed 

word  •  clutter  It  scan  width,  output 

rep  -  string 

X  (  onstruct  a  word  whose  first  tharactrr  is  C  and  whose  remaining  characters  are  to  be  removed 
X  I  rom  the  instream 

uan  -  proc  (c  char  instrram  stream'  returns  <cvt> 
s  string  *  stringli?i<c> 
s  -  s  M  streamtgetsf instream  *  \t\n*> 

except  when  end  of  tile  end 
return*  s' 
end  uan 

X  Return  the  width  of  the  word 

width  -  proc  <w  cvl’  returns  <lnt' 
return1  strlngtsue*  w>> 
end  width 

X  Output  the  word 

output  -  proc  w  rvt.  outstream  stream1 
ttreamSputs'outUream  w* 
end  output 


end  word 
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IV. 3.  Text  Substitution  Program 

The  following  (rather  complex)  program  performs  textual  substitutions  of  one  tet  of  strings 
for  another  throughout  a  file  It  tan  hr  useful  tn  expanding  abbreviations,  returning  variables, 
correcting  misspellings  etc 

Substitutions  are  specified  by  a  lisi  of  rules  trad  from  a  f tie  Each  rule  conmtt  of  a 

left  hand  side  <the  vtting  to  l>e  replaced)  and  a  fight  hand  side  <the  string  to  replace  with), 

separated  by  a  '»'  chatactet  Faih  rule  it  tetmmated  by  a  newline  character  For  example,  to 

substitute  "Rl  t,IN'  for  "begin*  and  ’I  Nl)'  lor  "end*,  the  rules  would  be 

begin  -  HI  GIN 
end  -END 


All  substitutions  are  done  simultaneously,  to  for  example  it  it  potuble  to  tubvtitute  "a  lot  *b 
and  *b*  for  ’a*  Subttitution  it  not  performed  on  the  retultt  of  a  substitution  only  on  the  original 
text  When  jwrforming  tubtlitutiont.  the  rule  with  the  longest  left-hand  tide  always  takes 
precedence  I  hut,  given  the  two  rulet 
abc  'X 

an  input  of  "abcab"  would  be  trantfotmed  to  "xyb* 

Within  a  rule  charadert  can  be  represented  with  the  tame  eu ape  tequencet  allowed  in  string 
literals  For  example  the  following  rule  replaces  eaih  newline  by  two  newlinet 

\n  »\n\n 

In  addition  the  escape  sequence  *\  .*  can  be  uted  to  reprevent  the  character  *»" 

The  program  atkt  for  the  name  of  a  rule  file  and  then  loopt  asking  for  pairt  of  input  and 
output  file  names  to  process  using  the  given  rules  If  no  input  file  it  given,  a  new  rule  file  It 
requeued  If  no  rule  file  it  given  the  program  terminates  If  no  output  file  it  given,  a  new  input 
f  lie  It  requested 

The  program  it  implemented  using  a  puthdown  transducer  a  puthdown  automaton  extended 
to  produce  output 
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Fig.  9.  Module  Dependency  Diagram 
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all  tuff  lx  Main 


alluatex 


Nore  box  ex  with  a  rloxible  line  al  the  top  indnafe  rkivlert 
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\  Ask  for  4  rule  file  and  bulk!  4  pushdown  transducer  for  it.  and  then  kwp  asking  for  pairs  of 
t  input  and  output  files  and  processing  them  using  that  pushdown  transducer  When  no  input 
11  f  lie  is  givrn.  ask  for  4  nrw  r ulr  file  Whm  no  rule  file  is  given.  terminate  Whm  no  ou’put 
1  file  n  given,  ask  for  a  new  input  file 

substitute  -  proc  0 

tyo  stream  •  streamtprimary  output!) 

while  true  do 

rst  stream  -  get. streamt’rule  file  ’.’read*) 
except  when  refuses!  return  end 
m  pdt  -  build  pdttrst) 

except  when  illegal  1  line  Int.  why  string' 

stream$close<rst) 

streamlputlttyo.  Inttunparse* line'  I  "At*  "  »  why) 
continue 

end 

sireamlclose'rst' 

while  true  do 

inst  stream  -  get  stream* ’input  f lie  ’. ’read") 

except  when  refuses!  break  end 
outst  stream  -  grt  stream* ’output  f lie  ’, ’write") 
except  when  refused  streamjc  lose<insi> 

continue 

end 

run  pdt*inst.  outst,  m> 
streamer  lose*  outst) 
streamjelose*  inst' 

end 

end 

end  substitute 


I 


1 
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\  Read  in  a  file  name  and  oj»en  the  file  in  the  given  mod*  Signal  refused  if  no  filename  it 

1  g  i  v  en 

get  stream  -  proc  l prompt.  mode  string'  returns  (stream)  signals  (refused) 
lyt  stream  -  stream!piimary_input<> 
tyo  stream  •  streamjprimary  output!) 
tyi  input  buffered  -  true 
while  true  do 

streamJputsMyo,  prompt) 
fs  string  -  streamlgetKtyi) 

If  string!  empty'! s' 

then  signal  refused  end 
return*  stream! open! f  tie  nameSparseffs),  mode)) 

except  when  bad  format  strramiputKtyo,  "bad  format  f lie  name”) 
when  not  possible  (s  string'  stream$putl<tyo.  t) 
end 

end  except  when  end  of  file  signal  refused  end 
end  get  stream 

1  Read  and  pa’se  the  rules  from  the  given  stream  Construct  and  return  a  pushdown  transducer 

*  corresponding  to  those  rules 

build  pdt  -  proc  '  sr  strrim'  returns  <pdt)  signets  'illegal' Int.  string" 
rule  -  struct!  left  right  string] 
rulelist  -  array!  rule] 
rules  rulelist  -  rulelisllnewO 
line  Int  -  I 
while  true  do 

while  strram!peelc<st>  •  "\n  do 

ttrram!getc*st> 
line  -  line  *  I 

end  except  when  end  of  file  return'pdtfcrratetrules')  end 
left  string  -  get  rule  part<st.  "An"' 

If  string!empt>i  le‘|) 

then  signal  illegaMine  ’missing  left  side  of  rule”)  end 
If  irrramlefnptv  »r>  cor  \*feam!grtc(sl'  '»' 

then  signal  illegal' line  'missing  right  side  of  rule”)  end 
right  string  -  get  rule  part's!,  “\n*> 
rulelistfaddMniles.  ruletOeft  left,  right  right)) 

end  except  when  illegal 'why  string'  signal  illegaK line,  why)  and 

end  build  pdt 


Text  Substitution  Program 


SI  V  ^ 


X  Parvet  a  rule  part  up  to  but  not  including  the  pvm  terminators  Accepts  (hr  regular  rui pe 
X  sequences.  plus  *\»"  to  represent  "»* 

get_rule  part  -  proc  < st  stream.  terms  string)  returns  (string)  signals  (ilk-gaK string)) 
terms  •  strlngtappend<ierms,  *\\*) 
part  string  -  ** 
while  true  do 
begin 

part  -  part  II  streamtgetsljt,  trrrm) 

If  streamjprrlic<stl  --  W 

then  return<part'  end 

end  except  when  rnd  of  file  returo<part>  end 

c  char  -  streamtgrtc<st) 

x  Int  -  strlngjindrxc<strraml[>eekc<st',  ~\"\\>ntpbrv“) 

If  x  >  0 

then  srreamfgrtc'st) 

c  -  ~\*\\ »\n\t\p\b\r\vT x] 

else  lum  Int  -  0 

for  i  int  In  Inttfrom  to* I .  ?>  do 
c  -  strramlgrtdtt' 

If  c  <  V  cor  c  »  T 

then  exit  ilirgal  thar  end 
turn  *  tom  •  8  •  char$c?t<c>  -  charScJlCO") 
end 

t  -  thar  Ji?c<sum) 

end 

part  •  strlngtappend'part.  c> 

end 

except  when  end  of  filr  illegal_char  signal  illegaK"bad  escape  sequence”) 

end 

end  gel  rutr  part 

*  Perform  all  substitutions  on  a  file 

run  pdt  -  proc  'intt.  otitu  stream,  m  pdtl 

while  true  do 

pdtlmove<m.  ureamtgetc<inu>> 

except  when  output  <t  string)  vtresmf putt'outst.  s'  end 
end  except  when  end  of  .file  streamlputs<outst.  pdttreset(m))  end 
end  run  _pdt 
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X  A  pushdown  transducer  is  a  collection  ot  states  connected  by  transitions  A  transition  tan  also 
X  (onnnt  a  stair  to  an  output  condition  with  the  initial  state  as  the  implicit  next  state  A 
\  transition  is  lal>eled  with  tmth  an  input  tharacter  and  a  set  of  lookahead  charatters,  the 
X  transition  is  to  l>e  followed  if  the  tutrent  input  character  matches  and  the  current  lookahead 
X  i  hara<  ter  is  in  the  Kmkahead  set  I  he  basic  operation  of  the  transducer  is  move,  which  moves 
X  ai  ntding  to  the  current  input  character  'at  the  top  of  the  pushdown  list*,  and  the  current 
X  lookahead  tharacter  given  as  an  argument*  Output  is  produced  by  signalling  with  a  string 
X  result 


pdt  -  cluster  It  cie.t’e  move  reset 

rep  -  record  fust  state 
l*ii  f  f  er  huf, 

current  state) 

rule  -  struct  le*t  fight  string* 
nilelis’  .  array4,  role) 
huf  *  array4  char) 


X  initial  state 

X  pa'h  from  initial  state  to  current  state 
X  plus  next  input  char 
X  current  state 


X  Two  phase  onstnic  Mon  first  construct  all  states  and  transitions  needed  to  follow  any  single 

X  rule  Iron  the  initial  s'a'e  to  its  output  condition  Then  fill  in  missing  cross  transitions  for  rules 

X  tha'  inter  n  t  wrh  each  t«’hrt  m  approximately1  the  following  manner  For  each  substring  of  a 
X  le't  hand  site  of  i  Mile  a  pa'h  from  some  state  S1  to  some  state  S?'  that  is  also  a  prefix  of  a 
X  let  ’  h«o  f  cr  'e  of  <  rule  'a  p»  h  from  the  tni'iil  irate  ro  some  slate  Ml.  add  all  transitions  out  of 

X  S|  'mv  conflscting  »iih  rxis’m,  transitions  out  of  S?'  as  transitions  out  of  S2 


create  -  proc  rule  ,  •uleln  return!  cvt  signal*  '  illey  ah  itrlng'l 

first  s’a’e  -  si  arejr  reate4 ' 
foe  r  rule  in  rulelisrleletnentstniles1  do 
add  rule' f it st  r* 

end  resiqnal  ilk'i  il 

foe  pa’h  string  s?  state  In  all  states'f irst*  do 
for  si  s’a’e  m  all  suffix  states'path  first'  do 
replicale*  s|  »?> 

and 

and 

return  rapl'f  irtt  f  ir st.  huf f er  bllflnewO.  current  firsfll 
and  create 
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%  Make  4  movf  with  the  given  char  as  the  lookahead  input  If  a  rule  is  recognized  Ian  output 
%  condition  is  reached*  the  left  side  of  the  rule  is  discarded  from  the  end  of  the  buffered  input, 
X  and  any  remaining  input  is  concatenated  with  the  right  side  of  the  rule  and  returned  for  output 

*  If  no  rule  can  match  the  current  buffered  input,  the  entire  buffered  input  is  returned  for 

*  output 

move  -  ptoc  <m  cvt.  peek  char1  signals  <output<  string  * 

m  current  -  statejmove'm  current.  bufJtoptm  buffer*,  peek! 
except  when  output  *sizr  In t.  out  string* 

hutltrimtm  buffer.  I  buf  Jsize<m  buf fcrl  -  sue> 
out  -  resethm*  II  out 
bultaddhlm  buffer,  peek) 
signal  outpudout) 
when  no  match 

out  string  -  resetllm) 
buf laddhim  buffer.  peek' 
signal  outpudout* 
when  bounds 
end 

buf  1  addh<  m  buf  t  er .  peek ' 

end  move 

*  Force  input  termination  Returns  any  final  output  Restores  the  pdt  to  its  initial  state 

reset  -  proc  'm  cvt1  returns  'string' 
extra  string  -  “ 

m  current  -  statrlmovrl'm  c  urrrnt.  buf  Jtop'm  buf f er >> 

except  when  output  <  si  re  int  out  string* 

bufltrirn'm  buffer.  I.  buflstzetm  buffer)  size) 
extra  -  out 

when  no  match,  bounds 

end 

returrVteserl'm)  II  extra* 
end  reset 

1  Internal  routine 

*  Return  current  buffered  input  Reset  current  state  to  initial  state 

resell  -  peoc  ' m  rep*  returns  (string* 
s  string  -  strtngtac?s<m  buffer* 
buf  Itnrrdm  buffer.  I,  0* 
m  current  -  m  first 
return*  s> 

•ad  reset  I 


end  pdf 
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X  A (1i)  a  nrw  mlr  Follow  existing  path  through  pdt  at  far  at  possible  and  then  add  nrw  states 
\  Jutt  add  states  and  trantitiom  needed  to  follow  the  rule  from  the  initial  state  fo  the  output 
\  condition  do  noc  add  crott  trantitiont  for  interacting  rules 

add  rule  *  proc  1  s  ‘(ate  r  rule'  signals  (illegal1  string1' 
rule  •  struct  left  right  string] 
left  string  -  r  left 
It  string! empty* left) 

then  signal  illegal' ‘rule  has  empty  left  tide"1  end 
si/r  int  •  strlngisi/Hleftl 
l  Int  -  1 
fieek t  string  - 
while  i  <  tire  do 

1  •  sta'elmoveD  leftfi),  leftli  •  1)1 
I  -  l  •  1 

end  except  when  output  <•'  peril  .  strlngV 2s< lef tf  I  •  III 
when  no  match 
end 

while  i  <  tire  do 

m  state  •  statrtcreateO 

itatrladd  movers  leftfi).  peek i,  ni> 

i  -  m 

i-i»l 

peel i  - 

end 

s'atetadd  output' l.  lef  tf  lire),  sire  r  right' 

except  when  i  He,  a  I  signal  illegal*  ‘conf  licting  rules*'  end 
end  add  rule 

\  Traverse  depth  first  left  to  right  yielding  all  path  state  pairs  reachable  f rom  given  state  Depth 
X  first  traversal  is  use)  to  satisfy  the  requirement  that  the  rule  s»ith  the  longest  left  hand  side 
X  tal  rs  precedent  e 

all  states  -  Iter  *  s  s'a’e  yields  string  state 

foe  input  char  peeks  string  nest  s’ate  in  sti  'latl  moves  s  do 
pre  string  -  strlngtc?!1  tnpu" 
for  path  string  ns  stale  In  all  slales'nest'  do 
yield  pre  R  path  ns' 
end 

yield  fire,  nest) 

end 

end  all  states 
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X  Given  a  it  ring.  Inlkrv.  all  proper  sullixes  (kwigest  first*  of  the  stung  at  paths  front  the  given 
X  slate  anil  yiekl  the  Imal  stare  reached  by  each  legal  pafh  7  hr  suffixes  arr  door  hmgest  first  to 
X  satisfy  thr  requirement  that  thr  rulr  with  the  longest  kit  hand  side  takes  precedence 

all  suffix  states  -  Iter 'path  string  fust  state)  yields  (state* 

Site  Int  -  string!  sue*  path* 
foe  i  int  In  IntSfrom  to<?.  sire'  do 
s  state  •  first 
J  Int  •  I 
while  j  •  sire  do 

s  -  stateSmovr  s.  path!  jl.  pathf  j  •  I  J) 

I  *  J  *  1 

end  except  others  continue  end 

s  -  states  novel*  s.  path!  j)) 

except  others  continue  end 
yield1  s> 
end 

end  all  tuff n  states 

X  For  es  h  input  rhaf  causing  a  transition  out  of  SI  but  not  causing  a  transition  out  of  S2.  add  a 
X  transition  cnit  of  S? 

replicatx  •  proc  tsl.  s?  s ’ate* 

foe  input  char  perks  string  s  state  In  stateSall  moves<sl'  do 
statetmovel1  s?  input* 

except  when  output  <#'  continue 
when  no  match 
end 

stateSadd  move's?  input  perks  s* 

except  others  end 
end 

foe  input  cher  sire  Int  out  string  In  stateSall  outputs*sl*  do 
stafrtadd  output's?,  input,  sue.  out* 

except  others  end 
end 

end  replicate 
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'  A  sta'e  is  a  collection  of  arts  rath  labeled  with  th e  input  character  required  to  take  the 
X  transition  An  arc  either  points  to  a  new  state,  or  indicates  an  output  condition  (with  the  initial 
X  state  as  the  implicit  new  sta'e'  For  arcs  to  new  states  a  list  of  acceptable  lookahead  characters  is 
X  also  present,  with  an  empty  list  indicating  *all  others*  An  output  condition  implicitly  carries  an 
X  all  others"  lookahead  list  There  ate  operations  to  add  new  transitions,  iterate  over  the 
X  transitions  and  move  to  a  new  state  given  the  current  input  and  lookahead 


all  moves  add  move,  all  outputs  add  output,  move,  movel 


state  -  cluster  Is  c rea'e 

rep  -  arrayftrans) 
trans  -  strucCmput  char 
nest  arcl 
arc  •  oneofT  state  pstate 

output  output) 

ps'ate  -  rec  or d  (>eel  s  string 
state  state! 
output  -  struct!  sire  int 

out  strlngl 


X  a  state  is  a  set  of  transitions 
X  a  transition  is  a  labeled  arc 

X  an  arc  is  to  a  new  state 
X  or  to  an  output  condition 

X  emjrty  lookahead  means  "all  others* 

X  sire  of  left  ndr  of  rule 
X  right  side  of  rule 
X  implicit  "all  others"  lookahead 


X  (  reate  a  new  vatr  with  no  transitions 


create  -  proc  11  returns  'cvt' 
returrrrepjnew>> 
end  i  rea’e 


X  Y leM  all  •: ansi'mm  ' input  lor.ljhrjdc  ne»t  state'  f rom  the  given  state  to  new  states 


all  moves  -  Iter  s  cvt  yields  char  string  statel 
foe  t  'mi  In  repkelements  s'  do 

tagc  ase  t  nevt 

tag  s’a'e  <ps  pstate  yield  t  input  ps  peek  s  ps  state* 
tag  output 

end 

end 

end  all  moves 
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X  Add  .1  trantitlon  ( torn  one  Mile  to  another  lot  the  given  input  and  that  lubwt  ol  the  given  livt 
X  ol  lookahrad  char*  not  prevent  on  renting  (raricidont  (or  the  given  input  The  addition  it 
X  illegal  if  all  of  the  lookahead*  are  already  accounted  for  by  earning  trantitiom  An  empty 
X  lookahead  lit!  denotet  'all  other \  not  tpecified  on  either  (ranvitiont  for  the  ume  input* 


add  nxive  -  proc  'from  cvt.  input  char,  peek*  tiring  to  Mate*  tlgnalt  (illegal) 
r  peel  t  tiring  •  peek  t 
to*  i  (rant  In  replelementMf rom'  do 
If  t  input  •  input 

than  t age  ate  t  neat 

lag  Mate  <pt  palate'  If  tlrlnglrmptytp*  peek*) 
then  tlgnal  illegal 
elte  rjieeki  •  vtriptrpeekt,  pt  peek*) 
and 

lag  output  If  alringlrmptytprrk*' 

then  tlgnal  illegal  end 

end 

end 

and 

If  itrlngk empty*  r  jwek c>  cand  ^  atrlnglrmptv' |>eek  *' 
then  tlgnal  illegal  end 
rept  addKf  rom.  tranitl input  input 

neat  arejmake  crate*  pvurrti  peek*  peeki. 

Mate  toll)) 

and  add  move 


X  Yield  all  trancitionc  'input  cue  output'  from  the  given  Mate  to  output  condition* 

all  output*  -  liar  'c  cvt  yield*  'char  Int  tiring' 
for  t  tram  In  raplelrmentc**'  do 
lage ata  t  neat 
lag  Mate 

lag  output  'a  output'  ylaldtt  input,  a  tur.  a  out' 

and 

and 


and  all  output* 
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\  A  l  l  »  luimiuwi  1  nxii  the  given  state  lo  in  output  condition  lot  the  given  input  An  "all 
'  othru'  W*>k  ahead  hit  u  implicit  lor  this  Mammon  so  the  addition  it  illegal  if  a  trantitlon  for 
\  the  given  input  and  an  “all  urhers*  lead  ahead  lilt  already  ruin 


add  output  -  proc  (Iron  cvt  input  char  lire  Intout  string1  signals  (illegal) 
foe  t  tram  In  rept  elements*  f rom>  do 
If  t  input  -  input 

than  tagcasa  t  next 

tag  ttate  (pt  pvtate) 

If  ^strlnglemptpps  peeks' 
then  continue  end 
peek  i  string  - 

foe  »  tram  in  replelements  down* pv  state"  do 
jieeki  -  stringlappendtpeek  t.  *  input) 
end 

pi  (wrk  t  *  |*eek  t 
tag  output 

signal  illegal 

end 


end 

end 

reptaddh'f rnm  traml  input  input. 

next  arcjrna k e  oxitput<outpuH!tire  me. 

out  out!))) 

end  add  output 


'  Veturn  the  next  ita’e  lor  the  given  input  and  lookahead  Signal  no  match  if  no  transition  It 
\  jxmihle  Signal  outpu'  if  an  ou'put  condition  u  reached 


move  -  proc  ‘i  cvt  mpu'  peei  char  returns  (state'  signals 'no  match,  output! Ini  string)) 
foe  t  Irani  in  repirlemen'v  s'  do 
If  t  input  -  input 

then  tegc ate  t  nrx1 

tag  itate  'pi  poate 

If  strlngSrmp'ypi  peek  i1  coe  strtngl  index  cl  peek .  ps  peek  s'  >0 
then  retuerr  pi  state'  end 
tag  output  < x  output1 

signal  outputs  site  x  out' 

end 

end 

end 

signal  no  mate  h 
end  move 
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X  R Plum  (hr  nrtt  state  for  (hr  given  inpul  with  no  fuMhrr  inpu(  available  Signal  no  match  If 
X  no  tranution  is  jiostiblr  Signal  output  if  an  output  condition  n  reached 

movel  *  proc  *s  cvt.  input  char1  return*  (state)  signals  (no  match.  output*  bit.  string)) 
tor  t  tram  In  rep!  elements*  s'  do 
If  t  input  -  input 

then  tagcase  t  nett 

tag  date  (pc  pstalf)  If  atring!rmpty*ps  peeks' 

then  return*  pi  state)  and 
tag  output  (>  output)  signal  output* *  me,  x  out) 

and 

end 

end 

signal  no  mate h 
and  movrl 


and  irate 


X  Rmnn  r  i  h  tr  t  in  ( fSING  from  chart  in  f  Pc  >M 

strip  -  proc  ‘from,  using  string1  returns  string) 
for  i  char  In  strlngtc  harttuting*  do 
i  Int  -  string!  mdesctc  from' 

If  i  *  0 

then  from  -  string! substr* f ram.  I  i  I'  I  string!  rrti‘ f rom,  I  •  |)  and 

end 

relurrr  f  rom' 
and  strip 
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